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ON TOP OF THE APPLE TREE 


MAGAZ I NE CONTEST 

We come to you a bit late this month, since 
our original plan to have the MAY issue in the 
mail by hay 1st. The reason -for the delay was 
a business decision on my part to spend our 
resources and employee time, after the double 
harch/April issue, filling Pair Software 
orders developing and preparing for a new mass 
mailing to all Apple iff owners and vendors. 
As you may have noted during the last month, 
THE iff MAGAZINE has been mentioned by a 
variety of computer publ ications, including 
NIBBLE MAGAZINE, ON-LINE TODAY (CompuServe) 
and AIM. It is our plan to increase our 
advertising budget even further. 

Why? Because I have been very frustrated 
personally at the average size of THE iff 
MAGAZINE, which has generally been about 24 
pages long. (this issue is 28). As with any 
business, the size of the magazine is dictated 
by its income. Each month we have to provide 
for present production expenses, author 
payments and reserve for future costs of 
creating THE iff MAGAZINE. To put it simply, 
a larger magazine requires more subscribers 
and more advertisers. We now have a 
salesperson (Luann Sanders) to work with 
developing advertisers far THE iff MAGAZINE, 
and our planned mass mailing will help lay the 
foundation for even greater expansion. 
Getting the ’word* out, and providing the iff 
with a large impartial forum for its users, is 
the key to its survivial. 

To encourage further growth, this month we are 
starting a new subscriber campaign. If you 
are a PRESENT subscriber to THE /// MAGAZINE 
(you cannot reward yourself for signing up!) 
and encourage a new subscriber to sign up, you 
may choose one of our $10 or $15 Pair Software 
packages (see Page 27) AT NO CHARGE for each 
new subscriber. Just have the new subscriber 
include your request and subscription number 
(see the top of your mailing label) along with 
his or her subscription order, and we will 
mail your order ASAP. How 7 s that for a deal! 

SLOT EXPANSION BOX 

In ON TOP OF THE APPLE TREE in the March/April 
issue of THE iff MAGAZINE we noted that ON 
THREE was considering the development of a 
slot expansion box for the ///. This box, 
which I imagine could also be used in the 
Apple ]C Computer, would give the iff user up 
to 8 high speed expansion available in his or 
her system instead of the limited four slots 


we have now, extra slots for TITAN fff+ffe 
cards, printer cards, CP/M cards, Legend 
Memory cards^, etc. Unfortunately, ON THREE 
has only been talking about the expansion box. 
They need some idea of the number they can 
sell BEFORE developing it. 

As a solution, in the article we offered to 
set up a mass purchase of expansion boxes with 
THE iff MAGAZINE magazine acting as a broker 
for the purchase. We would develop the buyer 
list, collect the purchase funds and hold them 
in an interest bearing trust account while ON 
THREE completes the expansion box design. 
Once the device is complete, they will be 
paid. If not, the potential buyers will be 
refunded with interest. We estimated the cost 
of the box between $300 and $500, with $400 a 
likely compromise. AT THIS TIME WE ARE 
LOOKING FOR REQUESTS, NOT MONEY. 

To date, we have had about 40 requests for the 
expansion box. I feel we should have at least 
100 requests before ON THREE can rightfully 
consider investing the time and money in the 
creation of the box. If you are interested in 
participating in such a purchase, we need to 
hear of your INTEREST. There is no need to 
commit or promise money NOW. Once we have 
developed a list, we will take it to ON THREE 
and get specs and cost from them, and THEN ask 
for a money commitment. 

I know this is a heck of a way to run a 
market, but servicing the iff community is one 
of the most unusual markets I 7 ve ever seen. 
We fffr 9 s need to be a clannish bunch if we 
are going to see continued development for our 
machines. WRITE TO US OF YOUR INTEREST! 

512K MEMORY BOARDS 

Another group purchase I would like to propose 
is a mass purchase of ON THREE’s excellent 512 
Kilobyte (1/2 megabyte) memory upgrade memory 
boards. These boards solve a variety of 
problems for iff owners who have found that 
even 256K is too small a memory space for 
their needs. Getting system crashes under 
CATALYST with memory hogs like DRAW ON ///, 
LAZARUS or DISK MAKER? Lack enough room for 
POWER KEYS or the DESKTOP MANAGER. The 51 2K 
board is the answer! 

Again, we are looking for names of interested 
parties, not money, at this time. ON THREE 
has offered reductions on their $399/exchange 
price for the board, and 1 7 11 bet we can get 
at least 157. off. WRITE US OF YOUR INTEREST! 

THE iff MAGAZINE 
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LETTERS TO THE EDITOR 


(Ed. Note: The following letter is printed by request of the 
editor of ON THREE, unedited and without coaaent) 

The February issue of THE III NA6AZINE contained an advertiseaent 
by D.A. DataSysteas that was highly unccapliaentry to ON THREE 
and insulting to the intelligence of Apple ill users in general. 
The entire staff of ON THREE and our attorney feels that a nuaber 
of stateaents in that advertiseaent were in error. The following 
is a stateaent of true factsw that were not brought out in the 
referenced ad. 

1) He resent being called the ? Off & On Coapany’. He have worked 
harder than any other coapany to bring new and tiaely products to 
the aarket for the Apple III. 

2) The Desktop Hanager by ON THREE does not, as stated in the 
advertiseaent require ’40K ainiaua plus aore for planned aodules’. 
It in fact used a aaxiaua of 40K of aeaory and in soae 
circuastances takes away only 32K froa the available systea 
aeaory. 

3) The Desktop Hanager does indeed have aany aodules available for 
it (the NotePad, Calculator, Appointaent Calendar, Desktop 
Controller, cut and paste, aouse control, and built-in help 
screens are included). Optional Disk Utilities, an Ascii Table, 
are aaong those avaiable now, not the ’aany planned, call next 
week’ as stated in the ad. 

4) The Desktop Hanager autoaatically installs itself on any 256K 
or greater Apple /// systea and does not require running the 
Systea Utilities to add a driver. It is not, as stated in the ad, 
’another Pre-Boot (sigh...).’ 

5) In regards to ON THREE’s reputation, we take exception to the 
line that ON THREE will have a reputation ’real soon now’. With 
the dozen plus products that we have introduced over the last year 
and with new products that we have planned, our reputation speaks 
for itself. 

6) The stateaent in the ad describing ON THREE’s support as ’file 

a report with aissing persons’, is ridiculous and defaaatory. ON 
THREE prides itself on having the best custoaer support in the 
industry. On each ON THREE product shipped a sticker is affixed 
bearing the stateaent: ’WE GUARANTEE SATISFACTION AND FULL 

PRODUCT SUPPORT. NEED HELP? PHONE (805) 644-3514’. Just last 
evening, two of our people spent alaost an hour assisting a caller 
to get Access III to run on his Space Coast Systea hard disk using 
Catalyst. You’ll notice that none of the products aentioned are 
our own. If this isn't full Apple III product support, what is? 

7) The stateaent describing people who buy ON THREE products as 
suckers, or there is, 'apparently one born every ainute’, aay not 
sit too well with the thousands of Apple Hi users who rely on ON 
THREE for all of their needs. 

8) The price of the 512K Heaory Expansion is not, as stated in the 
ad, ’..conveniently available froa The Off & Or, Coapany (T.O.O.C.) 
for $499.’ The price of the 512K Heaory Expansion reaains $399, 
the saae as it has been since Deceaber of last year when a price 


reduction took effect. 

We would appreciate it if anyone who has read the D.A. DataSysteas 
ad would write to us at ON THREE with their coacents. If there 
are any questions, please do contact us at: 

ON THREE, Inc. 

4478 Harket Street, Suites 701-702 
Ventura, CA 93003 


Dear Frank: 

I as wondering if you can help ae understand the difference 
between the systea of expansion slots in the III in ccaparison to 
the slots in the Apple //e. Aside froa the physical difference 
(the //e slots accoaodating cards that are longer with a lower 
profile to fit in the lie housing)., could I plug a card designed 

for the lie into the III and not run any risk of daaaging the 

///??? 

The reason for ay interest is that I have just inherited a Rana 
8086/2 HS-DQS 2.11 systea that was designed to be operated through 
an Apple He (or Apple 11+) using a supplied 8086 controller card 
configured for the He. As you aay know, Rana Systeas went 
bankrupt about a year ago, just before potential plans to 

configure their 8086/2 to an Apple ill... I suppose they aight 

have called it the 8086/3. 

The Rana 8086/2 has two disk drives... they both read/write 
either the Apple disk foraat or the IBH-PC disk foraat. 

At any rate, if I could extend one of the Apple III slots outside 
of the Hi housing sc the longer 8086 controller card could be 
accoaodated, and be assured that I would not daaage the III. I 
would like to try to coaaunicate to the Rana systea. 

I would be very auch interested in your opinion as to the 
practicality of such an effort. 

Sincerely 

Gilbert E. Keas 
Los 0so, California 

Dear Gilbert, 

OH IHREE’s proposed slot expander Mould be a high speed expansion 
box that Mould accoaodate toHI of the long topple ][ or the tall 
topple III cards (See On lop of the topple Tree, this issue), so IF 
it is built your problea of placeaent Mould be solved. 

to greater proble i exists in Making it Mork. I Mill assuae that a 
SOS. DRIVER could be Mritten that Mould operate the card, but the 
problea noM Mould be the Mriting. Since Rana is a Chapter 7 
bankrupt, your chances of obtaining the necessary technical data 
on the card to Mrite the driver are very sli i. 

If you need to have an HS-D0S systea (yeech!) you have several 
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alternatives. Ihe first is simpl y to buy a topple He or He clone 
mith ProUOS to run your Rana card, and then port needed files to 
and fro uitb that syste m. CRC Systems, £ big topple III supporter, 
is selling the highly rated LtoSER 12 $ He clone for (1 believe) 
under 1400.00 non. Call (714) £35-2*62 for information. 

If it is just toscii (DIF) or RS-DOS data files that you need to 
transfer, another alternative is to buy D.to. DataSystem’s 
PC-DISR. PC-DISR is a disk drive system that alloms a HI to read 
and mrite 5 114* diskettes in SOS format on 400KI800R 
R S-D0S1PC-D0S disk drives. Rith a supplied program called 
PC-COPf, you can also read and mrite toscii and data files in the 
RS-DOS format, tond, you get the advantage of the extra drive for 
other uses (Backup III , files, data disks, etc.) that mill murk 
mith your standard double density 5 114* floppies! 


people. 

1 strongly suggest that you, and all interested I fir’s, call or 
mrite Ihe engineering Department, tottn: Rendell Sander, 271 East 
hacienda, Campbell, Cto 9500$, (40$) 446-1444, and SItolE IODR 
0P1R10R. 1 have already told then 1 mill buy the first one they 
put out for the III. 

Dear Frank, 

Three Easy Pieces has a heart stopping bug. I discovered it while 
working on a lengthy word processing project. The project 
involved cutting and pasting aany ASCII files (for use with Super 
Applewriter and Nicro Terainal), all carefully asseabled froa 
various Apple III newsletters. 


One last note: Ihe Engineering Department of Campbell, 
California, mill soon release a FDLL !BH computable RS-BOS board 
for the lie. This board mill not only turn a lie into an RS-DOS 
computable machine, but mil! also have the ability to port DOS 
3.2, ProDOS and RS-DOS ascii and data files betmeen systems. 

tot this time the board, unfortunately, is a long He board and 
mill not fit in a standard HI. Homever, Ihe Engineering 
Department is headed by Rendell Sander , mho you may remember as 
the creator of the topple III. tofter talking mith several of their 
engineers (former lllr’s all!) I found that there mas some 
sentiment to make the board III computable for ’old times sake’ . 
1 suggested it that it mould be good business, too, since the vast 
majority of III users (more than $51 of our readers) are business 


DATA BASE /// 


Version 3,4.8 


I Totally User Definable 
t Autonatic Data Syntax Checking 
I Siiiple Screen 0esi9n Feature 
t Pre-forwatted entry fields 
t Supports Any SOS Oisk Drive 
t Full REPORT Generator* including 
t Custoi Layouts 
t Calculations and Totaling 
I Counting and Averaging 
I Statistical suawaries 


The EASY TO USE data base 
for your Apple /// 


As reviewed in 
the 85/83/85 
/// NEWSLETTER 



/AM»W 





% Input frow keyboard OR ascii text file frow other data bases 
t Easy loading/saving/nanipulation of your data 


Tired of data bases that you have to be a prograwwer to use? 
Need up to 288 input fields* no record size liwits* Multiple 
search keys? Consider DATA BASE ///!! DATA BASE /// can 
do your wail lists* client records* wanagewent reports* you 
nawe it because you define it! Don't settle for data base 
prograes that do only half the job. Buy DATA BASE /// and 
do it all! 


ONLY $100.80 COMPLETE 

Ordering details on Page 19 


The disk that I wanted to save ay work to was nearly full. I had 
carelessly not yet saved ay hours of work (shaae on «e!). When I 
tried to print ay first ASCII file to disk, Three Easy Pieces gave 
ae a "Can't finish writing to this disk" error. The proapt said 
to "Press the Space Bar to Continue". Escape daiaed that it 
would return ae to "REV I EH/ ADD/ CHANGE". Neither key did as it 
suggested it would. I got what looked like a software lockup! 
Nothing would get ae out of the error aessage! I knew that the 
systea wasn't hung because the flashing cursor was still doing its 
thing. The prograa siaply didn't know where to go next. Three 
hours of work were about to go into RAN heaven, never to be* seen 
again! 

In desperation, I tried several other 'open-apple' keys. At first 
I got a lot of "beeps". But, when I pushed the 'open apple S' key 
(Save to disk), the prograa took off and started to save ay file 
as a regular Easy Pieces file. I pushed escape to cancel the save 
and, lo and behold, the prograa then case back and displayed ay 
file on the screen. All was noraal again. 

Sincerely 

Jeff Fritz 

Hilliaason, Nest Virginia 
Dear Jeff, 

lhanks for the valuable tip. I’ll bet it saves a lot of lost 
mark. But you did state the most important practice to learn: 
FREQDERI StoVlRS OF IODR Dtolto 10 DISK JR III EtoSI PIECES. loo bad 
the program does not have a timer to remind you to save every 10 
minutes or so! 

Dear Frank, 

I am trying to teach ayself Asseably language. It seeas I have 
either a weak teacher or a slow student. I have been reading the 
Right to Asseable series but I aa a bit frustrated. Could you ask 
Nr. Street to include a paragraph or two in each article about 
using those aodules with PASCAL? It aight also be helpful to say 
soaething about writing aprograa in Asseably that stands alone, 
i.e., that can be run directly froa boot and does not need to be 
called froa either BASIC or PASCAL. 

Chris Acreaan 
Austin, Texas 
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ON LEARNING PASCAL 


For a old BASIC prograaaer, Pascal can be out and out 
intiaidating. Three or four disks with a bewildering array of 
files. At least 4 Manuals and 3 Errata booklets. Prograa in 
Pascal? It seeas hard enough to figure out how to get the systea 
going. 

That is what this article is all about - getting started and 
aaintaining control. The actual prograaaing will coae. I will 
not be repeating the Pascal Manuals so do a little reading first. 
You will need to have read the INTRODUCTION, FILER AND EDITOR 
voluae in particular. A text on the Pascal language is also 
useful. When I started I used PASCAL PRIMER by Fox and Naite, 

H. N. Saas Sc Co., Indianapolis. Also Jia Merritt had a aonthly 
series in SOFTALK beginning in Feb., 1981 

First of all, I urge you to get your Pascal upgraded to Version 

I. 2 with the 2.0 Coapiler. This Coapiler aakes life sc auch 
easier for the prograaaer, and it really needs the 1.2 run systea. 
As you get to writing larger prograas, "Super* Applewriter or any 
text handler with the capability of handling large (larger than 
32K) text files will be very handy. While the setup procedures 
are not dependent on the aaount of RAM you have, once you start 
prograaaing you aay rapidly get yourself in trouble with deaands 
on aeaory, particularly under Catalyst or Selector. Apple /// 
Pascal has the nasty habit of responding to excessive aeaory 
deaands with a "Stack Overflow" (There is no "Out of Meaory" 
error.), which is a fatal error that will require rebooting. 

HARD DISK SYSTEMS - Now, about ail those Pascal files. If you 
have a hard disk, you can avoid the whole problee by installing 
Pascal on it. Pascal 1.0 can be installed with the Jeppson Patch 
available on the Coapuserve’s Maug and froa various Public Dosain 
Libraries. Pascal i.l and 1.2 cose with the PMOVE function which 
perforss installation on a hard disk. Ail versions can be 
installed under Catalyst or Selector. If you have a Micro Sci 
A143, you can install Pascal i.l or 1.2 on it with PMOVE. 
Alternatively with an A143, you can load it up with aost of the 
Pascal files without PMOVE, treating it like a couple of 140K 
drives. 

TWO DRIVE SYSTEMS - If you only have 1 Disk /// or don’t want to 
clutter your large aass aesory device with all these files, that’s 
fine too. Ilf you only have your one internal drive, forget the 
whole project. Pascal requires at least 1 external drive.] Ne 
start with old reliable - Systea Utilities. What we will be 
building first is a "bare bones", 2 drive systea ainus bells and 
whistles such as graphics, fancy sound, and higher aath functions, 
but with provision to use any version of the Pascal files. They 
are all there, but they take up space and can be added later. 

If possible, get a print out of the Directories of all your Pascal 
disks. The file locations vary soaewhat aaong the 3 versions and 
I’ll be identifying the various files by naae. The print out will 
tell you which disk has which file. Be sure you have a good 
supply of foraatted disks since, without a special prograa, you 
can’t foraat a disk while in Pascal. 

First copy the files SQS.KERNEL and SOS.INTERP froa Pascal to a 
new disk. Then copy your standard SOS. DRIVER to the disk. You 


by Harry Hanson 

could also use the SOS. DRIVER file(s) that coae with Pascal but 
the PRINTER driver aay or aay not be coapatible with your printer. 
A third choice is to build a new SOS. DRIVER. If you do, you will 
need .CONSOLE; .PRINTER or .RS232 or whatever your printer driver 
is and, if it is to be used, the driver for your large aass aeaory 
device. Call this disk "PAS.BOOT". 

To another disk, copy SYSTEM. EDITOR, SYSTEM. SYNTAX and 
SYSTEM. LIBRARY. If your Pascal has two versions of 
SYSTEM. LIBRARY, use the one on the LONER nuabered Pascal disk. 
Call this "PAS. SYS" but label it "PAS. SYS - Editor". 

Make a copy of PAS.SYS and then add SYSTEM. PASCAL, SYSTEH.MISCINFQ 
and SYSTEM. FILER. This will have the saae voluae naae as PAS.SYS, 
but label it "PAS.SYS - Systea - . 

If you are using the 2.0 Coapiler, just sake a copy of the disk it 
caae on. This will be "P. COMPILER. 2.0". Otherwise add 
SYSTEM. COMPILER to "PAS.SYS - Editor" 

You now have all you need to start writing Pascal prograas. If 
using 2.0, put the coapiler disk in .D2, otherwise put in a blank 
foraatted disk. If you have a 3 drive systea, put a blank 
foraatted disk in ,D3 if you are using 2.0. Boot with the 
PAS.BOOT, when the aessage coaes up at the bottaa of the screen to 
insert a Pascal disk, insert "PAS.SYS - Systea" and press 
(Return). The Pascal coaaand line will coae up. You now have the 
opportunity to call the Filer and set a prefix. If you have a 
blank disk available, set the prefix to that drive, e.g. .03. If 
you are using a hard disk, it would be a good idea to M(ake a 
subdirectory for hold your work and then set the prefix to point 
to this subdirectory. For a 2 drive, 2.0 systea, you will usually 
want to set it to .01 where you will have the aost rooa. If you 
do use the Filer, Q(uit to the Main Coaaand Line before 
proceeding. 

Replace "PAS.SYS - Systea" with "PAS.SYS - Editor". Yes, we are 
aisleading the systea. However, even with the largest versions of 
Coapiler, etc., you will have 54 blocks (27K) available on .02 and 
174 blocks (87K) on .01 for your own work. If you don’t have 2.0 
then you have a coaplete disk available. Also note that, in aost 
[but not all] cases, it aakes no difference to Pascal which device 
has a given file. Thus the Pascal responses and proapts will be 
the saae whether you have your "bare bones" systea or a hard disk 
systea. 

NOTE: Apple Pascal offers the "Norkfile" as a beginner’s option. 

I suggest the beginner, particularly in a 2 drive systea, avoid it 
coapletely. You have no control over disk utilization and oust 
look at the text file to find out what is in it. In addition you 
need SYSTEM. FILER on line to use it conveniently. 

THE EDITOR - E(dit will take you into the Editor. Nhen you are 
done you aust W(rite to save a new Text file. The H(rite coaaand 
is also the aeans of getting a prograa listing by specifying your 
printer (e.g. .PRINTER) as the destination. The Pascal Editor is 
just a specialized word processor with a strange quirk. Nhen you 
N(rite or Slave to file, it adds .TEXT to your file naae unless 
you tell it not to. You can tell it not to by putting a period at 
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the end. Thus .D2/PR0G1 will be saved as ".D2/ PROS 1. TEXT" while 
. D2/PR061 . will be saved as ".D2/PRGB1" (the period you put at 
the end is not part of the naae). A file saved by the Editor with 
.TEXT is stored in a different way fro® one without it. Files 
with .TEXT are stored as Pascal Text, the fora required for 
coapiling. Those without the suffix are stored as siaple text or 
ASCII files. The Editor can read and aake either type and convert 
one to the other (p. 104 of INTRODUCTION). Applewriter can only 
handle ASCII files. 

THE COMPILER - This is the aost tedious part of Pascal 
prograaaing. For an old BASIC prograaaer, it is the "new" step. 
First of all, relax. The Coapiler is just another prograa, one to 
convert your text or source code into p-code which is needed to 
run your prograa. The worst that can happen is that the Coapiler 
will suffer its own little "nervous breakdown" and generate a 
Stack Overflow, forcing you to reboot. 

NOTE: Pascal being run under Catalyst can be sneaky. Hhen an 
error occurs, Pascal will coae up with an error aessage which 
includes instructions to press space to continue. Nhen you press 
space, Pascal atteapts to recover froa the error and will, aost of 
the tiae, appear to do so. However, when you exit back to 
Catalyst, you Bay get SYSTEM FAILURE. This is just another 
expression of Stack Overflow. Reboot and fix the error. 

If you restricted your reading to INTRODUCTION, it is tiae to 
break out PROGRAMMER'S MANUAL Vol. 2. and read pp. 88 - 92. 
You will find many references to the Asseabler and the Linker 
which are extraneous to the beginner. You do not need either to 
write good, useful Pascal prograas. Pp. 93 - ill deal with 
Coapiler Options. These will probably becoae useful to you long 
before the Linker or Asseabler but they aren’t necessry to begin 
either. 

Coapiling takes tiae. One error ruins the coapile though you can 
continue with a tentative coapile. If you use Coapiler 1.0, l.i, 
or 1.2, you will need to write down the point of each error. This 
is where 2.0 triuaphs. The 2.0 Coapiler allows you to create a 
Error File in which the Coapiler will list all the errors, what 
they were and where they are. Thus you can just print thee out, 
go back to the TEXT file and aake the corrections - the Needed 
Corrections. 

•Needed Corrections"? One Pascal coapile error can cause 

another. Indeed one error can cause a cascade of other, actually 
spurious, errors. For exaaple, if you declare "PROCEDURE DOUBLE ( X 
: INTEGER;" rather than the correct fora "PROCEDURE DOUBLEU : 
INTEGER);" every following correct call of the Procedure will be 
flagged as an error. Hence, in beginning, I suggest you go very 
carefully in allowing coapilation to continue beyond the first 
error until you get soae faailiarity with Pascal. 

One practice which can reduce coapile tiae significantly is to 
turn off the screen. Nhile this can be done with the Coapiler 
($Q> option, it is easier to just hit Control-5 (Keypad 5 that is) 
when you have supplied the Coapiler with its required inforaation. 
If you get an error, the screen will coae back on by itself just 
as it will at the end of a successful coapilation. You will 
reduce the tiae by roughly 20S! 

If you have read the Coapiler Options pages you are aware that you 


D A DataSystems 
PC-DISK 

PcDisk Is a series of HIGH-CAPACITY floppy disk systems 
available only from D A DataSystems whicn add a number of 
unique features to any Apple /// system. 

These systems combine the popular ALF 'DCS' drive controller 
card with one or two high-quality TEAC 'slimline' floppy 
disks together with a custom cable and enclosure with self- 
contained power supply. All systems are shipped completely 
ready to run. 

Both 4QGK and 800K single and dual drive configurations are 
available as well as a uniquely functional 'hybrid' system. 
Imagine BACKING UP your Profile onto 6 disks instead of 35. 
Or your CMC 20 meg onto 24 instead of 140 !! 

In addition, systems which include the 400K drive units are 
shipped with a FREE copy of our own PC-C0PY program which 
allows you to insert a PC/MS-DQS formatted disk in the drive 
and copy files to and from it and your Apple ///. If you're 
"SURROwDED BY BIG BLUE* this offers a very nice means of 
transferring WordProcessor, Spreadsheet DIF or other files 
between machines. No networks, no modems, no cables... simply 
take the PC disk over to your /// and copy the needed files. 


Pricing: 


PcDisk-400-1 single 400K w. driver & PC-C0PY $450.00 
PcDisk-400-2 dual 400K w. driver & PC-C0PY 550.00 
PcDisk-800-1 single 800K w. driver 495.00 
PcDislC-800-2 dual 800K w. driver 595.00 


PcDisk-480-x 1 400K, 1 800K w. driver £ PC-C0PY 575.00 

SfcH is FREE on these items MCAHsa/COD add $25.00 
D A DataSystems 3792 yindover Hamburg NY 14075 716-648-2462 


can generate a List File. Generating such a file takes extra tine 
tea. +10X) however and the file is useful only in debugging an 
already coipiled prograa. If you wait until you have a 
successfully coipiled prograa and then recoapile with the List 
Option you will probably be well ahead in the long run. List 
files are also very large. For ay typical prograas, which use 
aultiple library units, I figure that the List file will be twice 
as long as the Text file which will be twice the size of the Code 
file. If you don’t have a hard disk, List files can easily 
overflow your disk space and ruin the coapilation. They can also 
easily grow beyond the capacity of the Pascal Editor and when you 
try to look at it, the last part will not read into the Editor. A 
way around this is to generate your List file as an ASCII rather 
than a TEXT file. This is done the saae way as in the Editor, by 
putting a period at the end of the pathnaae, e.g. 
".D2/MYPR05.LIST.". Then you can read out with AppleNriter in a 
series of partial loads. If you have "Super" AppIeNriter you can 
write it in one piece. 


RAM DISK - These are fine devices for speeding up soae operations 
but their usefulness for reducing coapile tiae is saall when 
coapared to having everything on a .Profile. The best result is a 
ca. 107. reduction in coapile tiae and that requires that the 
Coapiler, the .TEXT file and the .CODE file all reside on RAM 
disk. Putting the .TEXT and .CODE files only on RAM disk yields a 
ca. 6 l reduction. The situation changes though if your standard 
is an all Disk /// systea. The all RAM disk coapile was 307. 
shorter than an all .D2 coapile. Thus if you cannot afford a hard 
disk, a large RAM disk could save you a great deal of tiae. 
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POWER KEYS 2.0 by 

In the August 30, 1986 issue o-f THE /// 
NEWSLETTER and in the October issue o-f THE /// 
MAGAZINE, we reviewed some o-f the powers and 
uses o-f D.A. DataSystems’ POWER KEYS (Version 
1.0) ’keyboard macro programmmer with CUT and 
PASTE’ . A SOS. DRIVER module of the same 
school as the MS-DOS world’s SIDEKICK, POWER 
KEYS could greatly increase the productivity 
of the typical /// user. Now, D.A. 
DataSystems has released their POWER KEYS DM+ 
(Version 2.0) system, with new ’powers’ that 
make Version 1.0 seem downright primitive. 
SIDEKICK should have all of these features! 

As a short description, POWER KEYS is run as a 
’background’ program which is accessable from 
any /// program, language or application. The 
POWER KEYS base SOS. DRIVER module is a new 
.CONSOLE driver (regular and CATALYST versions 
available) that replaces the present .CONSOLE 
driver on your system boot diskette. Once 
installed, the new .CONSOLE driver allows a 
variety of new functions to be routed through 
it as needed and without effecting the 
’foreground’ program (VISICALC, /// EZ PIECES, 
APPLEWRITER, etc.). To enter the POWER KEYS 
program itself, you simply press the user 
defined ’power key’ (either the closed apple 
or open apple key) and the TAB key. 

The POWER KEYS DM+ base module comes with the 
keyboard macro facilities. The macro menu is 
accessed by entering the POWER KEYS program, 
then using command ’M’. With keyboard macro’s 
you can designate a single keystroke to type 
up to 128 keyboard characters simply by 
pressing a single key (pre-defined in the 
macro menu with the POWER KEYS ’K’ option) 
along with the ’power key’. 

Type multiple keystrokes. So what, you say? 
Well, how often do you repeat a sequence of 
keystrokes in your various applications? For 
example, I have a macro set defined for my 
word processor that includes ’CLOSED APPLE T’ 
as the keystroke for printing the string, ’THE 
/// MAGAZINE’. I just touch the power keys 
and continue typing the rest of my text, 
knowing that my /// is going to quickly catch 
up. Over the course of a long job that can 
add up to a lot of keystrokes and time saved. 


How about a VISICALC or /// EZ PIECES 
sheetsheet? Tired of mistyping cells? Set up 
a power key correctly and you’ll never mistype 
that cell again! Are you a programmer? How 
often do you mistype program commands? With 
POWER KEYS you can predefine your PROCEDURE, 


Frank W. Moors 

GOSUB, WRITE and ABS( commands so they are 
never mistyped again! This all adds up to a 
lot of time saved not only in entry but in 
debugging fed. Notes We will have an article 
next month on how to use POWER KEYS to do 
Auto-line numbering for you in BUSINESS 
BASIC} ! 

Work on a modem alot? I store logon codes and 
passwords in a macro file. Change to a new 
password, something you should do often? No 
problem with remembering passwords now- your 
/// does the remembering for you! 

Lastly, da you have to type up form designs on 
your word processor? Hate typing those ’!’, 

’ J* and TABs? With POWER KEYS you can 
predefine a cell like this with just a couple 
of keystrokes. 30 seconds work in 3 seconds!: 


Best of all, you can save and re-load macro 
menus as disk files with the S and L commands. 
This means you can define a macro menu for 
every application you own! 

The macro functions were a feature of the 
original POWER KEYS, along with the ’CUT and 
PASTE’ module that allowed a user to send a 
copy (a screen ’dump’) of his or her CONSOLE 
screen to any printer or disk file. But, 
owners of the program wanted even more 
features available via POWER KEYS, so D.A. 
DataSystems came up with an even better 
scheme, and added a ’hook’ to the base 
.CONSOLE driver that will load as many 
background program modules as a user’s 
SOS. DRIVER file can find space to put them. 

When installing the new POWER KEYS DM+ 
.CONSOLE driver with the SYSTEM CONFIGURATION 
PROGRAM of SYSTEM UTILITIES (by the time you 
read this D.A. DataSystems should have the 
self-install program shipping with the 
drivers), the user defines a pathname to a 
directory where the POWER KEYS macro files and 
driver modules are stored. At boot time, the 
basic .CONSOLE module goes to the defined 
directory and loads any macro file defined as 
DEFAULT. KBD and all of the POWER KEYS driver 
files in the MODULES sub-directory. 

As you buy new modules for the POWER KEYS 
system, all you have to do is add the module 
to the MODULES sub-directory. That makes 
things really simple! All modules are sold 
separately, but are very reasonably priced. 
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The base module itself costs $49.95, Other 
modules presently available are: 


'0NESIES' 

Single copies available, used unless noted: 

The Real Thing 

256K Apple /// 

475.00 

Apple /// external Drive 

125.00 

Microsci A-143 (560K) Drive 

275.00 

QIC 1 6 Megabyte 

Apple UPIC parallel printer cd 
pkasoii graphics parallel prnt cd (new) 
Legend ? S D Card - 1 megabyte 

500.00 

75.00 

110.00 

395.00 

Iniagewriter (wide-carr i age) 
INFAX 101A cartridge disk 

400.00 

1400.00 

Apple /// CoBol 

75.00 

pfs File 

30.00 

Basic Extension (new) 

25.00 

DataBase /// (new) 

50.00 

/// cm 

Applicard CPM system (like new) 

100.00 

Microsoft Assembly Language Dev Syst 
MIX T full K&R 

40.00 

30.00 

Nevada Basic language 

20.00 

Nevada Edit 

20.00 

Turbo Pascal 2.0 language 

30.00 

H or Emulation 

Titan 3+2 (not V) 128k' 

175.00 

McMill 68008 co-processor 

75.00 

ORCA 3.5 assembler (DOS) 

40.00 

QRCA 4.0 assembler (ProDos) 

60.00 

ORCA SmaII-C (ProDos reg 4.0) (new) 

30.00 

Kyan Pascal (ProDos) (new) 

35.00 

Univ.File Converter w. source (ProDos) 

50.00 

Thunder "C* w. Source Code (H Pascal) 

50.00 

MS-DOS (?!) 

Columbia UP 'portable' (30 lbs) 

IBM clone*' w. built-in display, 384K RAM 
it dual 360K drives. 384K RAM, two Serial 
& one Parallel port & system clock 

& huge "Perfect' software bundle 

800.00 

MT-BASIC multitasking (!) 
EcoSoft "C 

40.00 

40.00 

Codeworks Q/C with full source code 

75.00 

DataLight "Small-C 

40.00 

tic-lisp, MS & PC-DOS 

100.00 

MIX Editor 

20.00 

Sidekick (unprotected version) 

40.00 

Turbo Pascal 2.0 PC-DOS 

30.00 

Turbo Pascal 3.0 MS-DOS BCD 808? (new) 

100.00 

Turbo Tutor (new) 

30.00 

Turbo DataBase Toolbox (new) 

40.00 

Turbo Gameworks (new) 

40.00 

Norton Util ities v.2 

30.00 

Media Master v.1.12 

30.00 

D A DataSystems 3792 Uindover Hamburg NY 14075 
Phone ahead for availability, MC/UISA/C0D accepted 

Phone: 716-648-2462 CompuServe E70416 , 1 04<S3 


QUICKCAT - Sick of applications where that 
lack a disk CATALOG feature. Tired of having 
to boot SYSTEM UTILITIES everytime you need to 
find a particular file? The QUICKCAT module 
(command GO will catalog any directory for 
you by simply entering a pathname. If you 
just press 7 RETURN 7 at the request QUICKCAT 
will catalog the POWER KEYS macro and note pad 
file directory. This module is a must. Cost: 
$19.95 

DISKMGR - Tired too of booting SYSTEM 
UTILITIES to copy files and format diskettes? 
A companion to QUICKCAT, DISKMGR allows you to 
format a HOK floppy diskette from within ANY 
/// program WITHOUT the need of the /// 7 s 
format drivers. DISKMGR can also copy any 
disk file from one system disk to another. My 
only complaint is that you cannot format 
diskettes in any drive but the internal (.Dl) 
drive. Wish I could use it on the occasional 
Micro-Sci A143 diskette. Still, this is one 
module I highly recommand. Cost: $19.95. 

SHOWTIME - Displays your computers current 
time and date at a keystroke (command GT). A 
nice feature but I wish you didrr’t have to 
enter the POWER KEYS program to use it. Maybe 
something like a temporary display in the 
upper right hand corner upon pressing CONTROL 
and the POWER key. Cost: $19.95. 

NOTEPAD - Have a $3000.00 computer system and 
still using a pencil and paper to take notes 
on scratch paper? No more. NOTEPAD (command 
6N) gives you a on line mini -word 
processor/scratch pad to quickly type up, save 
and print your important notes. Can also be 
used for calandar purposes. I find this 
module a must for myself. Cost: $29.95. 

ASCITBL - Displays the ASCII table and currect 
system FONT loaded in your system, including 
special control characters. Very useful for 
those occasions you need to remember 7 some 
blamed ASCII character/decimal number/hex 
number 7 for programming or printer set-up. 
This module is a must. Cost: $19.95. 

PRINTMGR - Allows you to send complex setup 
codes directly to your printer or printer 
driver. A BIG help for those programs that 
cannot send printer code set-up codes. Cost: 
$19.95. 

DIALER - This module, when used with a modem, 
can be used to dial telephone numbers for you 
using POWER KEY macros. For example, you can 
load in a particular macro/phone number file, 
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D A DataSysterrts 


PGUER KEYS DM+ and modules 


Main Module Macros with Cut & Paste /// $49.95 

ShowT ime Displays current system time 19,95 

Notepad Full screen scratchpad 29.95 

PrintMgr Send setup codes to your printer 19.95 

DiskMgr Format -floppy disks and copy -files 19.95 

QuikDial Dial telephone directly from keyboard 29.95 

AsciTbl Displays a table o-f ascii 0-127 codes 19,95 

QuikCat List Catalog o-f any disk or directory 19.95 

Qu ikScreen Print a copy of the current text screen 29.95 

Purchase any three modules for only $50,00 
Addl modules after 3rd (per order) each 10,00 

TOOLS TIMES THREE - new prices for '86 

Power Cat Disk & File Librarian $29.95 

Power Print Printer Buffer 29.95 

The Retriever Deleted File Recovery 29.95 

— for the POWER USER j all 3 above for only 79.95 

Basic Utils System Utilities in Basic 19,95 

Basic XT Language Add-Ons inch QwkSort 19,95 

Basic XRF Variable Cross-Referencer 19.95 

Basic 6T0 Program Accelerator 49.95 

— for the BASIC PROGRAMMER ; all 4 above for only 99.95 

Source Window Full-Featured Disassembler 29.95 

Disk Window Disk Block Editor 29.95 

Data Window File Examiner 19,95 

— for the INQUISITIVE : all 3 above for only 69.95 

OR Purchase the entire TTT-10 collection for only $199.95 


S&H is FREE on these items MC/Visa/CGD add $4.00 
D A DataSystems 3792 Windover Hamburg NY 14075 716-648-2462 
Send $10.00 for full 75 page catalog on disk 


press a couple of POWER KEYS and dial your 
number through your modem. If your modem has 
a speaker, you can hear when the other party 
answers. A very useful module far 
salespersons working from a data base. Cost: 
$29.95. 

QUICKSCREEN - Successor to the ’CUT and PASTE’ 
module of the old POWER KEYS, this module 
allows the printing of any screen to a printer 
or disk file of your choice. The former is a 
great way to grab a quick bit of data, and the 
latter is a great way to save data for use in 
other programs. This module is a must. Cost: 
$29.95. 

Other modules are in the works, including a 
few NOT produced by D.A. DataSystems itself. 
In fact, if you would like to write modules 
far the D.A. DataSystems interface, D.A. 
DataSystem will be glad to help you! A few of 
the present modules under development are: 

REMOTE /// ~ A module I am waiting for! 
REMOTE /// will allow your /// to be operated 
via telephone modem by a remote terminal just 
as though you are at the keyboard ! The 
terminal itself itself doesn’t even have to be 
a ///, just an ASCII terminal ! One of the 
reasons that we have not yet set up THE /// 
MAGAZINE BBS is because we are going to use 
this module- you will actually log on to a 


CATALYST menu from your terminal, and be able 
to play with different programs languages, 
etc.! Let’s see an IBM PC do this! 

BATCH /// - Familiar with BUSINESS BASIC’s 
EXEC command? BATCH /// will allow you to set 
up an ASCII text file that the module will 
execute as though the text of the file were 
keyboard commands, and it will work with ANY 
program. Got an all night job to do? Tell 
BATCH /// to do it, then go home. 

MQUSEMGR - Allows you to set up your MOUSE up 
in any program as the input for the ARROW and 
RETURN or ESCAPE keys. 

DRVRLOAD - Allows you to load an individual 
SOS. DRIVER in any program as needed. Great 
for developers and testing when you have 
’forgot’ to add a driver to your SOS. DRIVER 
file. DYNALOAD will do the same thing 
dynamically from CATALYST. 

XMODMMGR - A fully implimented Xmodem protocol 
terminal on line at any time. 

Only a couple of problems with POWER KEYS have 
been reported. In the pre-lease version of 
POWER KEYS sent to us we did have some trouble 
with with QUIKSCREEN. It would occasionally 
’lock’ when sending data to a printer. D.A. 
DataSystems reports that this problem has been 
corrected. The POWER SCREEN menus cannot be 
accessed from graphics screens like the 
drawing screens of DRAW ON ///. This is 
because graphics screens reside in a different 
part of /// memory than the text screen. To 
view the POWER KEYS screens you must return to 
a text mode. 

Another problem exists for programs like DRAW 
ON /// and WORD JUGGLER that make use of both 
’apple’ keys, making the practical use of 
POWER KEYS impassible in those programs. It 
is too bad the POWER KEY designation is not 
left up to the user, but must be one of the 
’apple’ keys. 

The last problem is one of memory limitations. 
While the present POWER KEYS system only takes 
up 18K of memory space, memory fragmentation 
and future drivers can cause crashing problems 
for /// systems running under CATALYST with 
memory hogs like DRAW ON ///. The only 
solutions are a separate boot diskette or a 
512K memory upgrade. If you want the features 
of a system under POWER KEYS, I strongly 
suggest the 512K upgrade. 

The POWER KEYS system can be ordered from D.A. 
DataSystems, 3792 Windover Drive, Hamburg, NY 
14075. (716) 648-2492. 
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BITS m PIECES 


On the facing page is a picture of your favorite editor/publisher. 
No, I did not put it in for vanity’s sake- after all, it lakes le 
look a bit fatter than actually I aa! Rather, it is a 
deaonstration of a digital picture printed by a ///. Oran On III 
author Mel Astrahan used a new digitiser board on a Apple H, 
changed the file over to a SOS foto foraat, and finished it up 
with Draw On ///. The digitizer board works with any kind of 
video input- T.V. output, video caaera or VCR- and converts the 
input into a graphics file. It is a great way to take ’pictures’ 
for printing on docuaents or for archive storage on diskettes. 
Hel is considering writing a III SOS. DRIVER for the digitizer 
board, but wants to know what kind of a *arket for such a board 
exists before he begins. Interested parties should write to THE 
III MAGAZINE and we will forward the requests to Hel. I estiaate 
the cost of an installed board with driver to be about $150-$200. 

X X X 

A new III SIG/Club has reported in. The Calgary Apple Corps 
(Apple III SIG) is looking for contact with other clubs. Write 
for lore inforaation to David Curwen at P.D. Box 6684 STN D, 
Calgary, Alberta, CANADA T2P 2E6. (403) 288-4544. 

I I X 

If you are a user of the FANASTIC GMNIS 3 data base (see our 
upcoaing article in June), but having trouble setting your systea 
up, you light consider the services of THE QHNIS HAN. Michael 
Reilly has developed a variety of super OMNIS 3 turnkey systeas 
capable of running a transaission shop or an entire insurance 
coapany, invoicing to payables. Best of all, you can aodify and 
update your systea to fit your changing needs. For aore 
inforaation, contact Michael Reilly at 38 A Pearl Street, San 
Francisco, CA 94103 (415) 861-4018. His rates are VERY 
reasonable, probably aore cost effective than doing it yourself! 

X X X 

My gosh, talk about bad tiling. A new tax prograa for the Apple 
Ilf just caae to our attention on March 15th! Office Data 
Systeas’ SMARTTAX will calculate and print your Federal and State 
Incoae Tax and foras. The prograa is perfect for the individual, 
faaily and saall businessperson taxpayer. We will PERSONALLY 
vouch for its abilities- it did our taxes better than we did thea! 
The prograa is available for the III and MS-DOS coaputers, and 
will be updated each year. The cost is only $89.95. Contact 
Steve Wozenski, 351 Oleaa Road, #15, Fairfax, CA 94930. (415) 
454-4357. If your tax incoae preparation needs are pretty 
standard, this is a prograa you should consider using. Great for 
projections, too! 

X X X 

A coaaon coaplaint with IBM gaae prograas is that the IBM randoa 
nuaber generator is not truly randoa. The IBM prograa shown below 
should generate a coaplete randoa graphics display of screen dots, 
as does the III prograa. Instead, the IBM will generate a set of 
bars on the screen. Soaething to throw in the face any 
egotistical ’Big Bluers’ you aeet. Challenge thea to a duel! 


by Frank W. Moore 


APPLE III 

IBM 

10 HOME 

10 SCREEN 2 

20 INV0KE*bgraf.inv" 

20 X=RND$640 

30 PERFORM grafixaode (X2,X1) 

30 Y=RNDt200 

40 PERFORM grafixon 

40 PSET < X , Y) 

45 PERFORM fillport 

50 GO TO 20 

50 xX=RND( 1)1559 


60 yX=RND( 1)1191 


70 PERFORM dotat(XxX,XyX) 


80 GOTO 50 



$ $ X 

We like to give sose consideration to those aakers of Apple H 
software who reaeaber the III. I just got a brochure froa a 
coapany called Software Prograaaing that aakes a data base prograa 
called THE DATA REPORTER. And guess what? They state that it 
will run on the Apple III under eaulation. Nice to hear that on 
occasion! Iapressive looking data base, too. For aore 
inforaation contact Software Prograaaing at 4418 East Chapaan, 
Suite 156, Orange, CA 92669. (714) 730-0666. 

$ X X 

E-COM LIVES! The E-COM electronic mail division of the U.S. 
Postal service closed down last year. Old-tiae subscribers will 
reaeaber that we sent our foraer weekly, THE III NEWSLETTER, via 
E-COM for hard copy delivery. The E-COM foraat allowed a user to 
transait via phone mode® as aany as 3,000 letters an hour (at 1200 
baud) to the Postal Service for hard copy printing, stuffing and 
carrier delivery. E-COM was a great way to send out loads of sail 
quickly and cheaply. Heck, I could write and transait THE III 
NEWSLETTER to our thousands of subscribers in one evening! Well, 
several coapanies have bought up the old E-COM equipaent, and plan 
to offer the ssae services foraerly offered by E-COM. Two of the 
first to go on line are Business Corporation of Aaerica’s ZIPNET 
service (Attn: Alice Gordon, 185 Alewife Brook Parkway, 
Caabridge, MA 02138-1185. (617) 491-4000) and NETWQRD (Attn: 
Gary W. Gilbert, 6801 Kenilworth Avenue, #420, Riverdale, MD 
20737-1331). Letters cost as little as 38 cents for one page, .43 
for two pages, hand delivered to your custoaers. 

If you need to send a great deal of aail FAST on a regular basis, 
this is a service you should consider! And, we have iaproved and 
re-released our prograa E-COM CALL as THE ELECTRONIC MAILMAN (see 
below) to service the needs of Apple III owners interested using 
the E-CQM foraat carriers, which is likely to becoae the standard 
foraat for hard copy electronic sail transaissions. 

I X X 

A tip froa reader John Loaartire: "Anyone aaking up cables with 
solder-type pin connections runs the risk of heating the pins just 
a little too long. If this happens, the plastic in which the pins 
are esbedded will soften, and alignaent of the pins aay be 
affected. To prevent this, always use a pair of connectors (aale 
and feaale) fitted together during the soldering operation. I 
keep old connections on hand just for this purpose." 
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Several new products available fro» PAIR SOFTWARE (See page 27 for 
ordering details. Please note and use the NEW Order I's): 

By popular need and deaand, we have begun to carry several lines 
of hardware peripheral of interest to Apple /// owners. The DATA 
SPEC RS232 and CENTRONICS switch boxes provide III users an 
alternative to the dangerous practice of pluging and unplug RS232 
and Centronics devices to and fro* your ///. Just switch to the 
required peripheral (second printer, aodea, etc.) as needed. And, 
check out the prices for the quality switch you are getting! Hard 
tc beat. Our prices range froa $59.95 to $149.95. 

We now carry the tough and inexpensive STAR printer line. We 
presently use our STAR SG-15 to do not only the office work but 
the type setting for THE III MAGAZINE! Another STAR at ay other 
office has had its fourth birthday of daily work without a visit 
to the repairperson (it has outlived two Iaagewriters and an 
Olyapia SW3000). These printers are workhorses, and even have a 
letter quality aorfe! Our prices range fro* $299.00 (9* S6-105 to 
$365.00 (15" S6-15) . 

And, for you users hungry to go color, we now offer the TEKNIKA 
HJ22 RGB/COMPOSITE COLOR MONITOR. The MJ22 is an excellent 
replaceaent for the Monitor ///, has great color and good 80 
coluan text display. You can use the color cosposite aode on aost 
Ill's for great color in the Apple !E eaulation *ode. Our price 
for the MJ-22 is $349.00. 


While we did not plan to get into the peripheral aarket, the 
deaands of Illr's tired of searching for peripherals that *eet 
THEIR needs aade us decide to at least provide the ite*s *ost in 
deaand. Cables and shipping costs are extra. 

In software, we have added FONT MAKER III by John Cisar, a SUPER, 
easy to use FONT design prograa. FONTS are soaething that aany 
Illr's unfortunately ignore- specially designed FONT sets can be 
great tools in prograa design and screen layout. 15900, $15.00. 
AIsd by John Cisar is LABEL MAKER ///, a very easy to use printer 
label creator and foraatter. 15903, $15.00. 

PASCAL MODULES #4 includes another set of PASCAL prograa aodules 
tc help developers quit re-inventing the wheel. Included on this 
diskette are the GENERAL UTILITY and SOS TIME aodules. #5909, 
$15.00. 

CHECKBOOK III is a super checkbook ledger prograa for business or 
hose accounting. It will aaintain up to 10 different accounts, up 
to 100 codes for allocation of dollar aaounts, and up to 3000 
checkbook entries per account. It also has aultiple report 
foraats, aerge file capabilites for interia period entry and 
reconciliation of data, and auch aore. We were so iepressed with 
the prograa we hope to port it over to the MS-DOS and ATARI worlds 
for additional sales, but it runs best on the aachine it was 
designed for- The ///! 16300, $49.95 

THE ELECTRONIC MAILMAN lets you foraat your disk based word 
processor letter files and address lists into the E-COM foraat for 
transaission to the new E-COM foraat carriers. Send aass aail 
like the big boys when you NEED to get it out! #6302, 100.00. 

13 


THE /// MAGAZINE 



COMPARE TEKNIKA’S MJ-22 RGB/COMPOSITE MONITOR 
WITH ANY OTHER AND YOU’LL SEE WHY IT’S THE BEST 
INVESTMENT ANY COMPUTER OWNER CAN MAKE! 



„„ — 


the KH2 Rnit» Is letaiia minces text that is stop. IrisM mi 
mkr tries 1, especial Is mkt tie ffl ealw# wile. 


• If TEKNIKA mm 


VOLUME 


Teknika was the first to bring high quality component television to the market. And now we bring our 
engineering expertise to the computer field. The result? The astonishing new MJ-22 13" RGB/ 
composite color display monitor. A monitor with superior resolution, readability, color and flexibility. A 
monitor superior in every way to any other medium resolution monitor. 

The MJ-22 is the best monitor investment for any com p uter user because it is the onl y monitor you 
will ever need. A monitor that gets the best out of the computer you own now. . .or the higher quality 
computer you might own in the future. 

COMPARE THE TEKNIKA MJ-22.... 
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SPECIFICATIONS 


CRT: 

Input Signals: 

Input Levels: 
Display Format: 


13" 90-degree in-line, 0.5mm 
slot pitch, dark face, high 
resolution. 

RGB/NTSC composite/ 
separated video (luminance, 
chroma). 

Horizontal, vertical sync: 
positive or negative 
combined (h/v). 

RGB, TTL level comp: 

0.4-2. 5 Volts peak-to-peak. 

2000 characters (25 lines by 
80 characters, 5x7). 


Colors: 32-color palette of 1 6 colors in 

ROM for IBM and Apple. 

Resolution: RGB: 506 x 240 pixels; 

composite: 320 lines; 
separated video: 530 lines. 

Video Bandwidth: RGB: 18 MHz; composite: 

3 MHz; separated video: 

5 MHz. 


Audio: 


AUDIO IN/OUT 


Input: 0.4 Volts RMS, 47K 
Ohms; Output: 0.8 Watts. 


ADJUSTMENT FOR 
VIDEO OUTPUT LEVEL OF 
DIFFERENT COMPUTERS 


COMPOSITE VIDEO OR 
LUMINANCE (B&W) IN/OUT 



RGB MODE SWITCH 


VIDEO TERMINATION 
SWITCH 


Cabinet: 


Dimensions: 


Weight: 

Front Controls: 


Rear Controls: 


Beige with 0-8 degree tilt 
stand. 

14" high x 14.5" wide x 15.2" 
deep. 

26.4 pounds 

Horizontal Position, Vertical 
Hold, Contrast, Brightness, 
Color, Tint, RGB/Composite 
Push Switch. 

Video Input Level, NTSC/ 
Separated Video Switch, 
Apple/IBM RGB Switch, Video 
termination Switch, Vertical 
Linearity, Vertical Size, 
Horizontal Hold. 


ACCESSORIES 


MA-19 

MA-20 

MA-21 


MA-23 

MA-RGB-7 

6510 


CONNECTION FOR RGBI OR XRGB 
INPUTS (8-PIN DIN CONNECTOR) 


Cable set for the IBM PCjr. 

Cable set for Commodore, Atari, Tl, Timex-Sinclair, 
etc. (8-Pin DIN) 

Cable for IBM PC (must have IBM Color/Graphics 
Monitor Adapter installed). 

Will also work with IBM PCjr when an IBM Color 
Display Adapter Cable is installed. 

Cable for Apple II, Apple 11+ , Apple lie (MA-RGB-7 
board required) or Apple III. 

RGB Board for Apple II, 11+ , lie. 

140-channel Remote Control Television Tuner. Allows 
the MJ-22 to be used as a studio quality remote 
control TV. 


Specifications subject to change without notice. 


QUIET COMPANY 


TEKNIKA, THE 
WITH SOLID 

TEKNIKA is a subsidiary of THE GENERAL CORPORATION, 
Japan, a major manufacturer of a wide range of electronic 
products and electrical home appliances. THE GENERAL 
CORPORATION was established in 1936. 

TEKNIKA is partly owned by C. Itoh & Co., Ltd., a $60 billion 
corporation founded in 1854. We are not one of those importer- 
distributors who may not have the full support of the manu- 
facturer. TEKNIKA itself was founded in 1977. 


TECHNOLOGY 

The MJ-22 is our first display monitor and will be followed by 
two others: the MJ-10 and the MJ-40. The MJ-22 was 
developed as a result of extensive market research and the 
application of solid technology harnessed by the General 
Corporation over the years. 

Visit a nearby computer dealer and take a look at the MJ-22. 
Compare it with any other color display monitor in its price 
range. You will be convinced that all our claims for the MJ-22 
are well justified. 


PAIR SOFTWARE 

3201 MURCHISON WAY 
CARMICHAEL, CA 95608 
(916) 485-6525 

See Page 27 for ordering details 
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MflCSTUFF FOR THE /// » F ™ k , « 


The Macintosh computer has received a lot of 
press on how ’easy to use’ its human interface 
is for new users. There is no real big secret 
to the interface- it is merely a graphics 
screen menu system that is able to post very 
large selections of menu options by movement 
of the Mac’s MOUSE device and pressing of the 
MOUSE button. Still, for first time users the 
ease of using the interface does go a long way 
to overcoming computer phobias. 

Several companies have adapted this MOUSE 
driven graphics interface menu system to other 
computers, including the ATARI and IBM (GEM 
interface). Apple has even taking to claiming 
that ’copying’ of the Macintosh type system, 
that is, graphics display systems that give 
another computer the ’look and feel’ of the 
Macintosh, is a violation of their copyright! 
(Personally, it appears to me that the 

Macintosh system is itself a copy of the 
excellent, but now defunct, Xerox Star 
system. ) 

Now, Apple /// programmers can add a Macintosh 
style system to their PASCAL programs with a 
new unit called MACSTUFF. MACSTUFF mimics 
most of the features of the Macintosh system 
and gives the user an easy to use, direct 
interface with a /// program. It works with a 
MOUSE and driver or JOYSTICK ///. 

Now, note that I said ’Apple /// 

programmmers’ . MACSTUFF cannot be added to a 
compiled commercial PASCAL program. It must 
be integrated as a unit in your PASCAL 
SYSTEM. LIBRARY and called by the source text 
of your PASCAL program. Still, MACSTUFF can 
help you create a great user interface and, 
because of the procedures native to the unit, 
save you the trouble of ’re-inventing the 
wheel’ for a variety of program needs. 

Once installed in your PASCAL library for the 
program, the procedures of the unit, well 
documented in the user manual, can be called 
as needed. Quite a few procedures calls are 
needed to create a typical screen, but the 
procedures themselves are very straightf orward 
and easy to use, mostly requiring you only to 
pass label and position data to the procedures 
for their creative work. 

Much of the grunt work for creating a menu 
screen has been eliminated by MACSTUFF. It 
will center screen labels, set foreground and 
background colors, create and remove windows 
and command box menus, etc., without any 
special coding on the programmer’s part. I 


set up one modification of the SKELETON. CODE 
that come with the program to flip the 
graphics menu from one graphics mode to 
another (ala ATARI 520 ST) while keeping the 
menu screen labeling in the correct layout for 
the graphics mode used! 

Also included are procedures to re-draw 
screens, show choices, highlight choices, 
catalog a disk, and even return file names 
(e.g., <file>.C0DE) for execution! 

This is not to say the MACSTUFF unit interface 
is without its limitations. First of all, as 
I noted above, a graphics menu interface is 
ideal for a the new or low level user, but 
experienced computer users may find the 
combination of MOUSE/MOUSE BUTTON/KEYBOARD a 
less efficient method than the keyboard alone. 
Since it runs in the ///’s graphics mode, the 
unit itself runs a bit slow, although not a 
lot slower than the standard Macintosh 
interf ace. 

While the unit works fairly quickly and 
flawlessly in the Black and White graphics 
modes, I found it less satisfactory in the 
color modes, requiring a lot more graphics 
screen restore calls and operations to keep 
the screen layout clean, i.e., correct color 
overwrites and screen changes. Of course, 
these restore operations take time, and make 
the unit operation even more slowly. This is 
unfortunate, as the color modes are really 
neat and to me offer far more potential for 
user interfaces. 

MACSTUFF itself does not directly support 
Maclntosh/GEM screen identification icons 
(like hands, pointers, trashcans, etc.), 
although these could be created and displayed 
via a new system FONT. For example, any of 
the +128 ASCII FONT control characters could 
be made into icons or parts of a larger icon 
with a FONT generator program. If you are a 
programmer using the unit, creating a new 
system FONT for your program is not going to 
be a project. 

All in all, MACSTUFF is a very interesting 
program unit that can provide a very easy to 
use program interface for your PASCAL 
programs, especially if you need to write 
programs for the inexperience or occasionally 
user. Licensing arrangements for use of the 
unit in your commercially released programs 
are available. Contact Apollo Software, Attn: 
Steven C. Robertson, P.0. Box 6434, Kent WA 
98064-6434. 
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THE RIGHT TO ASSEMBLE bs , «*, 


I hope that the little dabbling Me did with SOS calls last tine 
has whetted your appetite because this #onth you're going to learn 
how to really put SOS to work! You should have a copy of the 
February issue of The III Magazine handy as space liiitations 
prevent repeating much of what has already been covered on SOS 
call paraseter lists. 

One coaplaint that »any Basic prograaaers have is the difficulty 
in writing keyboard input routines that are “idiot proof". They 
don't want the prograas that they write to “blow up“ just because 
the user entered soaething unexpected froa the keyboard. But 
writing keystroke edit routines that effectively trap and reject 
incorrect entries is tedious at best. 

Yes, the public doaain libraries are full of useful and very 
clever input routines that have been written entirely in Basic. 
But, rarely are they general purpose enough to use “as is* in an 
application you've written (not to aention the difficulty of 
inserting thee into a prograa due to line nuaber and variable naae 
conflicts). And, the aore general purpose and coaprehensive they 
are, the slower they run. 

Asseably language to the rescue! You've already seen in previous 
articles how fast your III really can run when you use an 
invokeable aodule. Even a rather inefficient aachine language 
prograa should have no difficulty keeping up with a fast typist. 
So that's what we're going to do: write an asseably language 
invokeable aodule to quickly do the sain work of keystroke 
editing. 

I adait that the saaple aodule included in this article still 
isn't an “all purpose" input edit routine. But with the 
techniques you've been learning in this series and the powerful 
SOS calls we’ll talk about this tiae, you'll be able to take the 
saaple prograa and turn it into your own personal version of the 
“ultimate* input edit routine. Just the thing to give your 
Business Basic prograas that “crisp“ keyboard response that is 
characteristic of asseabler prograas. 

As you look over the saaple invokeable aodule, the first thing 
you'll notice is that it aakes extensive use of asseabler aacros. 
The BBSUB, BNK2EXT, POP and PUSH aacros are the saae as the ones 
we've used in previous prograas. So you can use the Pascal 
Editor's Copy File facility to copy thea froa a previous prograa. 
Or, if you've started to build a sacra library (a real tiae 
saver), you can use the asseabler .INCLUDE directive to insert 
thea. The “Apple III Prograa Preparation Tools" aanual describes 
this technique in the asseabler section. Reaeaber that .INCLUDE 
is one of the few stateaents that you are not allowed to put a 
coaaent on. 

Since it isn't good prograaaing practice to ignore any errors that 
aay occur with a SOS call (or, for that eatter, any other part of 
a prograa - Basic or asseabler), the SOS aacro has been enhanced 
to include an optional third paraaeter. This paraaeter is the 
label to branch to if the SOS call returns a non-zero code in the 
A-register. Adding this paraaeter to the aacro siaplifies and 
reduces the aaount of coding that has to be done in the prograa 
for each SOS call. 


The new SOS aacro has one other wrinkle: the "BEQ t+5* stateaent. 
This is called a “relative branch" since the branch-to location is 
relative to the branch instruction itself rather than to a 
specific location. It is used here tc avoid any asseably errors 
caused by duplicate local ($xxx) labels. Its best tc use this 
technique only within aacros (or short sections of code that never 
change). Otherwise, later inserting or changing of an instruction 
can cause a bug that is very hard to find. Briefly: 

To branch forward, use "t+n* 
where n = 2 + nuaberjjf _bytes_skippedj3ver 

To branch backward, use "t-n“ 
where n s nuaber _ofJr/tes_5kippedj}ver 

Notice that it is BYTES skipped and not instructions skipped! 

Caution: Many 6502 instructions can be 2 or 3 bytes long 
depending upon the addressing acde used (ie. a regular or a zero 
page operand); and a few (ASL, LSR, ROL and ROR) can even be i, 2 
or 3 bytes long depending upon usage! Be especially careful using 
relative branches in aacros where, depending upon paraaeters, an 
instruction can be different lengths. This is one reason why the 
BNK2EXT aacro still uses local labels rather than relative 
branches. If you're at all unsure about this, stick with local 
labels until you've had a chance to experiaent soae with relative 
branches. 

The DC0NTR0L and WRITE aacros are new this tiae so you should look 
thea over carefully to understand how they work. As written, they 
are not necessarily general purpose enough to want to include thea 
in your aacro library. Rather, they were specifically designed to 
reduce the aaount of typing (and the associated potential for 
errors) in this particular prograa. A clever asseabler prograaaer 
(such as you've becoae) could easily aake these aore general 
purpose. Notice how both of these aacros have a SOS aacro inside 
of thea ("nested aacros* is the technical ter*) ; and, how the 
fourth paraaeter of the DCQNTRGL/tiRITE aacro becoaes the third 
(13) paraaeter of the SOS aacro. 

Like it or not, errors will occur when aaking SQS calls. 
Soaetiaes it aay be a aistake in coding a SOS call paraaeter list. 
Other tiaes your prograa is perfect but the user does soaething 
unexpected (such as reaoving a diskette that your prograa is 
trying to read). In any case, good prcgraaaers anticipate errors 
and atteapt to handle thea “gracefully - and not just "boab“. 
Mat's needed is an easy and convenient way to handle all aanner 
of possible SOS call errors without having tc write a lot of code 
to interpret and pass errors back to the caller. Once again, the 
Business Basic interpreter has a service routine to aake life 
easier on us asseabler prograaaers. 

“SError* (SOS Error) is Business Basic service routine nuaber 
fifteen ($F) . It translates the aost coaaon SQS call errors into 
their corresponding Business Basic error nuaber (and aessage) and 
then returns to the Basic prograa. 

Input: 

- A-Register is the error nuaber returned by a SOS call. 
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This is very convenient since SOS calls always put any 
error codes in the A-register. 

Output: 

* Business Basic error aessage and nuaber corresponding 
to the SOS call error code. 

Or: 

- The general Business Basic error 22 ( "SOS CALL ERROR") 
if the code isn’t one that can be translated into a sore 
infonative (?) Business Basic sessage. 

Errors: None 

Notes: 

- This service routine always returns directly to the 
Basic progras’s ON ERR routine and does NOT cose back 
to the invokeable sodule. 

A big advantage of using this service routine (other than not 
having to write and debug a lot of coaplicated assesbler code) is 
that it allows the Basic prograa’s QN ERR routine to trap and 
handle any errors that occur in the invokeable sodule. And, it is 
a standardized approach to error handling which also siaplifies 
the Basic prograa. 

A second error handling service routine is "Error"; nuaber 14 
($E). It is siailar to SError but it is just for Business Basic 
error codes. 

Input: 

- X-Register (not the A-Register) is the Basic error code. 

Output: 

- Error aessage and nuaber corresponding to the Business 
Basic error code. 

Errors: None 

Notes: 

- This service routine always returns directly to the 
Basic prograa’ s ON ERR routine and does NOT coae back 
to the invokeable aodule. 

- Only works correctly for X-register values between 1 
and 41 (deciaal). The Basic prograa’s ON ERR routine is 
triggered for any X-register value but the Business 
Basic error aessages are incorrect if the X-register is 
greater than 41 (such as 255 which is "Break/CTL-C"). 

So you will probably want to have an ON ERR routine to 
interpret the error codes. 

There are seven (count ’ea, seven!) new SOS calls in this aonth’s 
invokeable aodule and they are divided into two general 
categories: 

File Oriented Calls (Open, Close, Read and Write) 

Device Oriented Calls (Set Device Nuaber, Device Status 
and Device Control). 


The File Oriented SOS calls are functionally very siailar to their 
Business Basic counterparts of the saae naae. The purpose of the 


SOS Open call ($C8) is to create an "access path" to a pathnaae 
(the sain input paraaeter for Open). It does this by: saking an 
entry in the SOS File Control Block (FCB), allocating input/output 
buffers and assigning a file "Reference Nuaber". This reference 
nuaber is analogous to the Business Basic file nuaber and it 
uniquely identifies the access path (not the file itself). The 
Open call aust be done before any of the other file oriented SOS 
calls since all of the others need the Reference Nuaber to know 
which access path to use. After doing the Open, your prograa aust 
put the reference into the paraaeter lists for any Read, Write or 
Close SQS calls. For .CONSOLE (and all other character devices), 
the Pathnaae and the Device Naae are the saae. This is not true 
for block devices since there can be aany pathnaaes on the saae 
device (for exaaple, aany files can be on one disk). 

The Close call ($CC) is the opposite of Open and undoes everything 
what Open did. Plus, if the access path was to a block device, it 
writes out any partial blocks ("flushes" the buffers) and updates 
the directory. The file reference nuaber is the only input 
paraaeter for Close. 

As you aight expect, the SOS Read ($CA) and Write ($CB) calls 
transfer data to and froa a user buffer and the SOS input/output 
buffers. Both of these calls, of course, use the reference nuaber 
to know which access path to use. And, both have a pointer to the 
user data buffer (in two byte LLHH foraat since SOS takes care of 
any necessary bank switching). The Request Count tells SOS how 
aany bytes to transfer. Read has one additional paraaeter, the 
Transfer Count, which tells how aany bytes actually were 
transferred. The Transfer Count can be less than the Request 
Count if the end of the file or the teraination (Newline) 
character is encountered during the Read. This invokeable aodule 
can ignore the Transfer Count value since the teraination 
character has been set to "none* and character devices don’t ever 
get end of file. 

The second general category of SOS calls, the Device Oriented 
calls, don’t have any direct Basic counterparts since Business 
Basic deals priaarily with files and has few facilities for 
directly controlling devices. These calls do not use the 
Reference Nuaber. Instead, they use a Device Nuaber. Each device 
has its own unique Device Nuaber that is assigned when your systea 
is booted. These nuabers do not change unless the SOS. DRIVER file 
is changed and the systea is re-booted. And how does one find out 
this nuaber for a specific device? Easy. Just ask SOS by using 
the Set Device Nuaber ($84) call. This call takes a pointer to 
the Device Naae as input and returns the Device Nuaber. 

Once you have the Device Nuaber, you can do the Device Status and 
Device Control calls. Device Status ($82) returns inforaation 
about the internal status of the device (another SOS call, Device 
Info, returns external status inforaation). The Status call is 
valid for both character and block devices but the purpose of 
individual status codes aay be different for different drivers. 
In our invokeable aodule, console status code 1 is used to save 
the current settings of all of the console options. This aakes it 
easy to later use a Device Control call to put everything back the 
way it was before returning control to the Business Basic prograa. 

Device Control ($83) is used to send control inforaation to a 
particular device or driver. Like Device Status, the purpose of 
individual control codes aay be different for different drivers. 
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However, Device Control is only valid for character devices. This 
invokeable «odule uses two control codes (2 and 11) to set console 
options, one code (17) to download a new bit pattern for the 
underline character and one code (1) to restore the settings of 
all the console options. 


* + H + + 

! After .CONSOLE OPENed ! >1 Restore Status Table ! 

! and After Status ! Error ! and Download noraal ! 

! Table is preserved ! I Underline character ! 

♦ + + + 


All of the console Status and Control codes are explained under 
"Advanced Techniques* in the console driver chapter of the 
Standard Device Drivers Manual. This chapter also describes the 
unique capability of the .CONSOLE driver to do sany of the Device 
Status and Device Control functions by writing special control 
characters to the console. I haven't used this approach since I 
wanted to deaonstrate the store general and coaaon technique of 
using the SOS Device Control /Status calls. 

To suaaarize, this diagraa shows the difference between the File 
and Device oriented calls and shows the relationship between 
Pathnames, Device Naaes, File Reference Nusbers and Device 
Nusbers: 


+ + If 

I After .CONSOLE OPENed !~~ 

! but Before Status ! Error 

! Table is preserved ! 

+ + 

+ + if 

! Before .CONSOLE OPEN ! 

+ + Error 


And then i 

V ! 

+ + ! 

! Close .CONSOLE I ! 

+ * ; 

i i * 

i i i 

And If If 

Then Error Error 
V V V 

♦ + 

’■ ! “8BSUB SError* and exit to I 
I Basic prograa ON ERR code ! 

t + 


+ + 

! Path I 

! Naae ! 

+ ♦ 

V 

+ + 

! Open ! 

+ + 

* 

i 

V 

* + 

! Reference i 
! Nuaber I 

+ + 

V 

+ + + 

i t i 

i i i 

V V V 

+ + ♦ + + + 

! Read i ! Write S I Close ! 

+ + + + + + 


+ + 

1 Device ! 

! Naae ! 

+ + 


V 

+ + 

! Bet Device ! 

! Nuaber ! 

♦ + 

V 

+ + 

! Device i 

! Nuaber ! 

+ + 

V 

+ + + 

V V 

+ + + + 

S Device ! ! Device I 

! Status ! ! Control ! 

+ + + + 


For aore detailed inforaation about these and all the other SQS 
calls, order a copy of the two voluae *S0S Reference Manual" free 
Sun Data ($30; call 1-800-821-3221 to order). 

The Business Basic prograa deaonstrates how to use the invokeable 
aodule as part of a siaple data entry application. 


Like all good asseabler prograas, the invokeable aodule has lots 
of coaaents and the the sacros should sake it fairly easy to read 
and follow the prograa logic flow. One “tricky" part is the way 
that various errors are handled. Since the Basic prograa and the 
invokeable aodule are “sharing" the use of the console, it is very 
isportant that all errors be coapletely “cleaned up* and that no 
“loose ends“ (ie. .CONSOLE left open, underline character 
changed, etc.) are left to cause probleas for the Business Basic 
prograa. This diagraa shows the different clean up steps that are 
taken depending upon where in the invokeable aodule the error 
occurs.* 


Variations 

By now you're probably already thinking about variations you’d 
like to try in order to create the world's greatest input edit 
aodule. Here are a few ideas I had. The first two should be easy 
to do but the rest will involve a bit of work. 

t Use “tab - or another character to indicate end-of-input 
I Have aore than one end-of-input character. 
t Check for a ainiaua or exact nuaber of characters. 

I Allow only valid nuabers as input (ie. one plus/ainus 
sign in first position, one deciaal point, etc.) 
t Various coabinaticns of autoaatic upper/lower case to 
siaplify and speed up data entry. I used the "Proper* 
function froa last Noveaber's Right To Asseable for this. 

Or, how about trying different “cursor - characters? Appendix 6 in 
the “Standard Device Drivers Manual 8 has soae inforaation on how 
to do this. But I found the instructions to be a little 
confusing, so here is an exaaple of setting up a blinking “?* 


character: 

Set "X*=i and 
Space=0. Then 

Draw the character Invert the flip the bits 

using graph paper character left to right 



Byte 0 ! ! IXIXIX! ! ! ! IXIXi 1 ! 1X1X5 ! 1110 0011=$E3 

Byte 1 ! IX! ! ! IX! ! I IX! IXIXIX! IX! I 1101 1101-SDD 

Byte 2 I I I I IX! I I I 1 X I X ! X I X I 1X1X1 I 1110 llil=$EF 

Byte 3 ! I I IX! I I I I «> IXIXIX! IXIXIX! I ==> till 0iil=$F7 

Byte 4 I I I IX! I I I I IXIXIX! IXIXIX! I 1111 0111=$F7 

ByteS I I I I I I I I I IXIXIXSXIX1X5X1 I 1111 1111*«FF 

Byte 6 I I I IX! I I I I IXIXIX! IXIXIX! I 1111 0iil=$F7 

Byte 7 I I I I I I I I I 1 X 1 X IX 1 X 1 X 1 X 1 X 1 I 1111 illt*tFF 



01234567 01234567 7654 3210 Hex 

Bits Bits A Bits 

A "1" here causes blinking when inverse + 


Here are soae other cursor characters to try: 
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1? 




Inverse non- 

Nortal non- 

Norfial 

Blinking 


blinking ■?■ 

blinking "? # 

Basic 

Block 

Byte 0 

$IC 

$63 

$00 

*80 

Byte 1 

$22 

$5D 

$00 

CO 

O 

Byte 2 

$10 

$6F 

$00 

$80 

Byte 3 

$08 

$77 

$00 

$80 

Byte 4 

$08 

$77 

$00 

$80 

Byte 5 

$00 

$7F 

$00 

$80 

Byte 6 

$08 

$77 

$00 

$80 

Byte 7 

$00 

$7F 

$00 

$80 


Note that when you download a new character definition, all 
occurrences of that character on the screen change even if they 
were displayed prior to the change. 

The technique of using Device Control to download full or partial 
character sets to the Apple III video generator can be used to do 
some fairly fancy high speed animation. I believe that this is 
how the Apple III ‘Running Horses* demonstration was done. If 
there is interest, this is a possible topic for a future article. 

Until then, remember that SOS is your friend and you have The 
Right To Asseible. 


Suggestions for future issues of The Right To Assemble should be 
sent to Stephen Street in care of The III Magazine. Questions are 
also welcome and will be answered as space and time permit. 


Ill BASIC PROSRAH It* 

100 rem mmmmmmtmmmtumtmmnmmmm 

105 REM * 

110 REM I ‘TEST Read Console" 

115 REM I 

120 REM I Business Basic Main Program to demonstrate using 
125 REM I the ‘PERFORM RdConsole* invokeable module to 
130 REM I control user keystrokes in a simple data entry 
135 REM I form 
137 REM * 

140 REM I Stephen J. Street 2/17/86 
145 REM I 

150 rem mmmmtmmmmmmummmtmmtnm 

155 REM 

160 INVOKE’RdCons. INV‘, ‘Proper. INV‘ 

165 Upper. Case* a ‘ABCDEF6HIJKLHN0PQRSTUVNXYZ* 

170 Lower . Case*=‘abcdef ghi j kl mnopqr stuvwxyz ' 

175 0igitst*’0123456789" 

180 REM 

185 REM Display the data entry fora 

190 REM 

191 ON ERR SOTO 700 
195 HOME 

200 VP0S=1 : HP0S=00: INVERSE: PRINT’Last Name:’: NORMAL 

205 VP0S= I:HP0S=33: INVERSE: PRINT‘First Name:' {NORMAL 

210 VP0S= 1 : HP0S= 6 1 : 1 N VERSE ; PR I NT ‘ I n i t i al : ‘ : NORMAL 

215 VPOS=3:HPOS=OOiINVERSE:PRINT‘Address:‘:NORHAL 

220 VPQS=3: HPDSM1 : INVERSE: PRINT'Ci ty: ‘: NORMAL 

225 VP0S=3:HPOS=58: INVERSE: PRINT’State:’: NORMAL 

230 VP0S=3: HP0S=68: I NVERSE ;PRINT‘ZIP:‘: NORMAL 

235 VP0S=5: HP0S=00 : I NVERSE : PR I NT ■ Tel ephone Number: ‘{NORMAL 

20 


240 VPQS=5: HPQS=34 : I NVERSE : PRI NT ‘ Soci al Security Number:’: NORMAL 

245 VPQ5=7:HP0S=00: INVERSE: PRINT’Birthdate tam/dd/yy) : ’{NORMAL 

250 VP0S=7:HPDS=32: INVERSE: PRINT'Sal ary: ’ : NORMAL 

255 REM 

260 REM Get ‘Last Name* (maximum 20 characters; alphabetics 
265 REM only) 

267 REM 

270 VP0S= 1 : HP0S= 1 2: LengthX=20: Al 1 ow*=Upper . Casel+Lower . Case! 

275 SOSUB 600: Last. name*=A* 

280 REM 

285 REM Get ‘First Name' (maximum 15 characters; alphabetics 
287 REM only) 

290 REM 

295 VP0S=1 : HP0SM5: LengthX=15: Al 1 ow*=Upper . Case*+Lower. Case! 

300 50SUB 600:First.naae*=A$ 

305 REM 

310 REM Get ‘Initial" (1 character; upper case alphabetics only) 
315 REM 

320 VP0S=1: HP0S-70: LengthX=01 : Al 1 ow*=Upper . Case* 

325 PERFORM RdConsole(8Initial*,XLengthX,8Allowl) 

326 IF LENdnitialtDO THEN Initial al« +’.‘:VP0S=1 
:HP0S=71:PRINT*.‘; 

330 REM 

335 REM Get “Address’ (maximum 30 characters; alphabetics, 

340 REM digits, period, comma and space allowed) 

345 REM 

350 VP0S=3:HP0S= 1 0 : LengthX=30: Al 1 ow*=Upper . Casel+Lower .Case* 

♦Digits***., ‘ 

355 GOSUB 600:Address*=A* 

360 REM 

365 REM Get ‘City" (maximum 10 characters; alphabetics only) 

370 REM 

375 VP0S=3 : HP0S=47: LengthX= 1 0: Al 1 ow*=Upper . Case*+Lower .Case* 

380 GOSUB 600:City*=A* 

385 REM 

390 REM Get ‘State’ (maximum 2 characters; upper case 
392 REM alphabetics only) 

395 REM 

400 VP0S=3:HPQS=65: LengthX=02: Al low*=Upper.Case* 

404 PERFORM RdConsole(0State*,XLengthX,«Allow*) 

405 IF LEN (State*) 02 THEN PRINT CHR*(07);:60T0 404 
410 REM 

415 REM Get ‘Zip’ (maximum 5 characters; digits only) 

420 REM 

425 VP0S=3 : HP0S=73 : LengthX*05 : Al 1 ow*=Di gi ts* 

426 60SUB 600:Zip*=A* 

435 REM 

440 REM Get ‘Telephone Number’ (maximum 14 characters; digits, 
445 REM space, parenthesis and dash allowed) 

450 REM 

455 VP0S=5:HP0S=19:LengthX a 14:Allow*=Digits*+’!)- ’ 

460 GOSUB 600:Phonet=A* 

465 REM 

470 REM Get ‘SS Number’ (maximum 11 characters; digits and dash 
472 REM only) 

475 REM 

480 VP0S=5: HP0S=58: Lengthl=l 1 : Al 1 ow*=Di gi ts*+‘-‘ 

485 60SUB 600: Social . Securt=A* 

490 REM 

495 REM 6et "Birth Date’ (maximum 8 characters; digits and slash 
only) 

500 REM 
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505 VP0S=7: HPOS=23:LengthX=08: A1 1 OH*=Digits*+‘/“ 

510 SOSUB 600:Born*=A* 

515 REM 

520 REM Get 'Salary* (aaxisua 10 characters; digits, period, 
525 REM coaaa and dollar sign allowed) 

530 REM 

535 VP0S=7: HPQSMO: LengthX=10i A1 1 ow*=Di gi ts*+*. , ** 

540 SOSUB 600:Salary*=A* 

545 REM 

550 VPQS=10:HP0S=1: PRINT 

555 END 

600 REM 

601 REM Input Subroutine 
603 REM 

605 VP= VP0S:HP= HPOS 

610 PERFORM RdConsole(eA*,ZLengthZ,«Allow*> 

611 IF LEN(A*)=0 THEN PRINT CHR*(07);:60T0 610 

612 PERFORM Proper (§A$) 

615 VPOS* VP i HP0S=HP : PR I NT A*; 

620 RETURN 

700 REM 

701 REM Error Handling Routine 

702 REM 

710 VPOS=10: HP0S*1 : PRINT'Error nuaber ERR;' occurred.* 

720 END:REM of prograa 


ttt ASSEMBLER MODULE It* 

.TITLE 'Read Console Invokable Module* 

.NoPatchList 

•NoMacroList 

mtttttttttttttmtttttttttttttttttttttttttttttttttttttmtttt 

; 

Read Console Invokable Module ' 

: 

Do keyboard input and editing using SOS calls and ■ 

Business Basic interpreter service routines. i 

! 

To use froa Basic: 

INVOKE 'RdCons.INV* 

PERFORM RdCDnsole(#Keys*,ZLength2,8Allow*) 

Keys* is the edited keystrokes returned to the Basic prograa 
LengthZ is the aaxiaua nuaber of keystrokes 1255 aaxiaua) 
Allow* is a string of the keyboard characters allowed 

i 

i S. J. Street 2/15/86 

[mtmttttttttttttttttttttttttttttttttttmtttttttttttttmttt 


Macro Definitions 


.HACRO 

BBSUB 


PHA 


5 Save A-Register teaporarily 

LDA 

#zi 

; Set subroutine nusber 

STA 

0E7 

; and set it 

PLA 


; Reload A-Register contents 

JSR 

.ENDH 

0E4 

; Bo do Business Basic subroutine 


I 


.HACRO 

POP 


PLA 


; Pull lot* byte off of stack 

STA 

XI 

; and save it 

PLA 


; Pull high byte off of stack 

STA 

Xl+1 

; and save it 

.ENDH 



.HACRO 

PUSH 


LDA 

xm 

; Set high byte and 

PHA 


; put it on the stack 

LDA 

XI 

; Get low byte and 

PHA 


; put it on the stack 

.ENDH 



.HACRO 

SOS 


BRK 


Cause hardware interrupt 

.BYTE 

XI 

XI is the SOS call nuaber 

.IF 

•X2 , <> ,B 


.WORD 

X2 

X2 is the Req. Paraaeter List pointer 

.IF 

*X3 - <> ,B 


BE8 

$+5 

Continue if no SOS call error 

JHP 

X3 

Branch if SOS call error 

.ENDC 



.ENDC 



.ENDH 



.HACRO 

WRITE 


Buffer 

Length , Nr i t e_Li st , S0S_Err 

LDA 

21 

; Set 

STA 

23+2 

; Nrite 

LDA 

Xl+1 

; Buffer 

STA 

23+3 

; Address 

LDA 

22 

; Set Request 

STA 

23+4 

; Count 

SOS 

0CB,23,24 

; Do SOS Nrite 

.ENDH 



.HACRO 

DCONTROL 


DC_Code, DC_Li st , DCJWdress, S0S_Err 

LDA 

#21 

; Set 

STA 

22+2 

; Control Code 

LDA 

23 

; Set 

STA 

22+3 

; Control 

LDA 

23+1 

; List 

STA 

22+4 

; Address 

SOS 

083,22,24 

• Do Decontrol 

.ENDH 



.HACRO 

Bnk2Ext 


LDA 

OFFEF 

Get current bank nuaber 

AND 

I0F 

Bank nuaber is just the low 4 bits 

BE6 

*010 

Branch if bank zero 

TAX 


Otherwise, save bank nuaber in X-reg. 

LDA 

21+1 

Get HH part of Address 

CHP 

tOAO 

Is Address greater than I9FFF? 

BCS 

*010 

Yes, its in High S-Bank 

SEC 



SBC 

#20 

Address = Address - $2000 

BHI 

*010 

Address is less than $2000 

BES 

*005 

Address is between $2000 and $20FF 

STA 

22+1 

Address is between $3000 and $9FFF 

TXA 


Get the bank nuaber and 
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21 




JHP 

$015 

; go turn on extended addressing bit 


.NORD 

PathNaa ; Address of Device Naae 

$005 

LDA 

#80 

; Convert Address so it is 

DevNabr 

.BYTE 

00 

; Device Nuaber (filled in by SOS) 


STA 

22+ 1 

; between $8000 and $80FF 






DEX 


; Bank# = bank# - 1 

i 

DStatus 

.EQU 

082 

; SOS call nuaber for Device Status 


TXA 


; Set the bank nufiber and 

DSList 

.BYTE 

03 

; Device Status has three paraaeters 


JNP 

$015 

; go turn on extended addressing bit 

DSDNsbr 

.BYTE 

00 

; Device Nuaber (filled in later) 

$010 

LDA 

#0F 

Special XByte for S-Bank and Bank zero 

DSCode 

.BYTE 

01 

i Device Status Code (Preserve Status) 

$015 

ORA 

#80 

Turn on extended addressing bit 

STableA 

.NORD 

StatTbl ; Address of the Status Table 


. ENDM 



StatThl 

.BYTE 

90. 

; Status Table is 90 deciaal bytes long 

! 





.BLOCK 

90. 

; Console Status Table 

; Zero Page pseudo registers for Extended Indirect Addressing, 

. 




; aiscellaneous equates and other Zero page locations 

DCntl 

.EQU 

083 

; SOS call nuaber for Device Control 

J 




DCList 

.BYTE 

03 

; Device Control has three paraaeters 

5 



Business Basic Interpreter Subroutines 

DCDNabr 

.BYTE 

00 

; Device Nuaber (filled in later) 

NotNow 

.EQU 

13. 

; Set String Data 

DCCode 

.BYTE 

00 

; Device Control Code (filled in later) 

BError 

.EQU 

!4. 

; Translate Basic error and exit 

CListA 

.NORD 

00 

; Address of the Control List (filled in 

SError 

.EQU 

15. 

; Translate SOS error and exit 




later) 

StrCp 

.EQU 

33. 

; String Copy 

C2LstA 

.NGRD 

C2List 

; Address of Control Code 2 List 

InpCot 

.EQU 

34. 

; String Assign 

C2List 

.BYTE 

00 

; Line Status s $00 (no teraination 

Allow 

.EQU 

OEA 

; Address of ALL0N$ string descriptor 




character) 

AIlowX 

.EQU 

1601+AIIoh ; I-Byte of ALLONJ string descriptor 


.BYTE 

00 

; Null Teraination Character 

FacHO 

.EQU 

06C 

; General String pointer in Fac 

, 




FacHOXB 

.EQU 

1601+FadlQ ; X-byte for FacNQ pointer 

CllLstA .NORD 

CllList ; Address of Control Code 11 List 

Strngl 

.EQU 

07B 

; Input pointer for StrCp 

CllList 

.BYTE 

00 

; Echo Status = $00 (no echo, etc.) 

StrnglXB .EQU 

1601+STRN61 ; X-byte for Strngl pointer 

. 




InpGut 

.EQU 

057 

; Output pointer for InpCoa 

NewUL 

.NORD 

Blink 

; Address of Control Code 17 List 

InpQutXB .EQU 

1601+INPQUT ; X-byte for InpQut pointer 

Blink 

.BYTE 

01 

; Download one character 

Index 

.ECU 

035 

5 General Purpose Pointer 


.ASCII 

a a 

; Replace Underline with Blinking 

IndeXB 

.EQU 

!601+Inde> 

; X-byte for General Purpose Pointer 

j 



underline 






.BYTE 

07F 

; Character row 0 (top row) 


.PROC 

RdCcnsole, 

3 ; Three words passed to Read Console 


.BYTE 

07F 

; Character row 1 






.BYTE 

07F 

; Character row 2 


JMP 

Start 

; Skip over paraeeter lists, etc. 


.BYTE 

07F 

; Character row 3 






.BYTE 

07F 

; Character row 4 

Te»porary storage 



.BYTE 

07F 

; Character row 5 

J 





.BYTE 

07F 

; Character row 6 

RtnAdr 

.NORD 

00 

; Return Address 


.BYTE 

OFF 

; Character row 7 (blinking bit on) 

Length 

.BYTE 

00 

; Value of LEN6TH2 paraaeter (LSB only) 





AllowLn 

.BYTE 

00 

; Length of ALL0N$ string data 

OldUL 

.NORD 

NoBlink : Address of Control Code 17 List 

KeysD 

.NORD 

00 

; Address of KEYS$ string descriptor 

NoBlink 

.BYTE 

01 

; Download one character 

KeysX 

.EQU 

1601+0E8 

; X-Byte of KEYS$ string descriptor 


.ASCII 

a a 

; Replace Blinking Underline with Underline 

Count 

.BYTE 

00 

; Input character count 


.BYTE 

00 

; Character row 0 (top row) 

InputA 

. HORD 

Input 

; Address of Input characters 


.BYTE 

00 

; Character row 1 

Input 

.BLOCK 

255. 

; Input characters (255 aaxiaua) 


.BYTE 

00 

; Character row 2 

j 





.BYTE 

00 

5 Character row 3 

Parameter lists tor various SOS calls 


.BYTE 

00 

; Character row 4 

» 





.BYTE 

00 

; Character row 5 

Open 

.EQU 

0C8 

; SOS call nuaber for Open 


.BYTE 

00 

5 Character row 6 

OpenLst 

.BYTE 

04 

; Open has four paraaeters 


.BYTE 

07F 

; Character row 7 (blinking bit off) 


.NORD 

PathNaft 

} Address of Pathnaae to Open 

j 




QpenRef 

.BYTE 

00 

; Reference Nuaber (filled in by SOS) 

SNrite 

.EQU 

OCB ; 

SOS call nuaber for Nrite 


.NORD 

00 

; No optional 

Nr Li st 

.BYTE 

03 ; 

Nrite has three paraaeters 


.BYTE 

00 

; paraaeter list needed 

NrRef 

.BYTE 

00 ; 

Reference Nuaber (filled in later) 

PathNa® .BYTE 

8 . 

; Length of Pathnaae for Open 

WrBuffA 

.NORD 

00 5 

Nrite Data Buffer Address (filled in later) 


•ASCII 

".CONSOLE 

*, Pathnaae for Open 

NrLen 

.NORD 

00 ; 

Nrite Request Count (filled in later) 

1 

Close 

.EQU 

OCC 

; SOS call nuaber for Close 

NCurA 

.NORD 

NCursor 

; Nrite Cursor Buffer Address 

ClosLst 

.BYTE 

01 

; Close only has one paraaeter 

NCursor 

.BYTE 

18., "J 

,17., 8 ; Cursor Buffer: Inverse, UL, 

ClosRef 

.BYTE 

00 

; Reference Nuaber (fill in after Open) 

j 



Noraal, BS 

5 




NCurL 

.EQU 

t-NCursor : Nrite Cursor Buffer Length 

SetDNua .EQU 

084 

; SOS call nuaber for Get Device Nuaber 





DNuaLst 

.BYTE 

02 

; Set Device Nuaber has two paraaeters 

NBlkA 

.NORD 

NBlank 

; Nrite Blank Buffer Address 
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SB lank 

.BYTE 

" ‘,8,8,- 

“,8 ; Blank Buffer: Space, BS, ,BS, 




; Space, BS 

WBlkL 

.EQU 

t-WBlank 

; Write Blank Buffer Length 

} 

WBeepA 

. WORD 

WBeep 

; Write Beep Buffer Address 

WBeep 

.BYTE 

07 

; Beep Buffer 

WBeepL 

.EQU 

l-WBeep 

; Write Beep Buffer Length 

> 

Bead 

.EQU 

OCA 

SOS call nuaber for Read 

RdList 

.BYTE 

04 

Read has four paraaeters 

RdRef 

.BYTE 

00 

Reference Nuaber {filled in later) 

RdBuff A .WORD 

RdBuffr 

Read Data Buffer Address 

RdLsn 

.SORB 

0001 

Read Request Count = I 

RdXfr 

.SORB 

00 

Read Transfer Count (filled in by SOS) 

RdBuffr 

.BYTE 

00 

Read Buffer (only 1 byte needed) 

5 

i 

Start of 

Invokeable Hodule code 

> 

5 

Full Return Address and paraaeters off of the stack. 

Start 

POP 

RtnAdr ; 

Return Address is first thing on the 

5 



stack 


POP 

Allow ; 

Get address of ALLOWS string descriptor 


PLA 

I 

Pull HSB of LENGTH* 


STA 

Length ; 

and save it 


PLA 

5 

Pull LSB of LENGTH* and ignore it 

j 



(reaeaber Bus. Basic integers are HHLL) 


POP 

KeysD ; 

6et address of KEYS$ string descriptor 

j 

; Just return 

if LENGTHS 

is zero (ie. no keystrokes requested). 

> 

LDA 

Length ; 

Get LENGTH* value 


BNE 

LenOK ; 

Continue if its not zero 


JHP 

Return ; 

Just Return if it is zero 

5 

Use Business Basic 

“NotNow" subroutine to get the address 

• 

of the ALLOWS string data and its length. 

LenOK 

LDA 

Allow 

; Input to NotNow is address 


STA 

Index 

; of string descriptor 


LDA 

Allow+1 



STA 

Index+1 



LDA 

AUdmX 

; Including the X-Byte 


STA 

IndeXB 



BBSUB 

NotNcw 

; Get data address and string length 


On return froa "NotNow", pointer to data is in Index, Index+1 
and IndeXB. The length of the string is in the A-Register. 


Just return if ALLOWS data length is zero tie. nothing 
allowed). 


TAX 


Is length greater than zero? 

BNE 

AllowQK 

Yes, continue 

JHP 

Return 

No, just Return 

AllowQK STA 

AllowLn 

Save length of ALLOW! data 

LDA 

Index 

Replace the zero page 

STA 

Allow 

ALLOW! Descriptor Address 

LDA 

Index+1 

with the ALLOW! 

STA 

Allow+l 

Data Address 

LDA 

IndeXB 

(Including the X-Byte) 

STA 

AllowX 



OPEN the console and then fill in the paraseter 
lists for CLOSE, READ and WRITE. 


SOS 

Open, OpenLst, Error! \ Open .CONSOLE 

LDA 

QpenRef 

; Copy the Reference Nuaber in to: 

STA 

ClosRef 

; Close paraaeter list 

STA 

WrRef 

; Write paraaeter list 

STA 

RdRef 

; Read paraaeter list 


Get the Device Nuaber of the console and then fill in 
the paraaeter lists for Device Status and Device Control. 


SOS 

GetDNus, DNuaLst , Error 2 ; Get the Device Nuaber of 
; .CONSOLE 

LDA 

DevNabr 

; Copy the Device Nuaber in to: 

STA 

DSDNabr 

; Device Status paraaeter list 

STA 

DCDNabr 

; Device Control paraaeter list 


Use the SOS Device Status call to save all of the current 
console settings so they can be restored later by a Device 
Control call. 

SOS DStatus,DSList,Error2 ; Preserve the Console 

; Status Table 

Use SOS Device Control calls to set the console paraaeters 
to what we want for this invokeable aodule. 

DCONTROL 02., DCLi st, C2LstA, Errors ; Set No Teraination 

; Character 

DCONTROL 11., DCLi st , C 1 ILst A, Err or 3 ; Set No Echo, etc. 

Use SOS Device Control call to Download A Partial Character Set 

DCONTROL 17.,DCList,NewUL,Error3 ; Download Blinking 

Underline 

LDA #00 

STA Count 5 Input character count = 0 

Main prcgraa loop: 

Display blinking underline cursor 

Read one character froa the keyboard 

Check character for carriage return (end of input) 

If not end of input, see if character is backspace 
If not end of input or backspace, see if character is allowed 
Beep if it isn’t allowed; save it if it is allowed (unless 
Length! characters have already been accepted) 


WriteC 

WRITE 

WCurA,IWCurL,WrList, Error! ; Display Blinking 

5 



Underline 

5 

DoRead 

SOS 

Read, RdList, Error3 ; Read one keystroke character 


LDA 

RdBuffr 

; Get character that was read 


CHP 

103. 

; Is it Control -C? 


BNE 

ChkCR 

; No, go see if was Carriage 

5 



Return 

LDX 

1255. 

; Yes, set Basic error code, 


LDA 

#00 

; indicate not a SOS call error, 


JHP 

Error3 

; and go process error 

ChkCR 

CHP 

113. 

; Is it Carriage Return? 
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BNE 

ChkBS 

; No, go see if it was Backspace 


JHP 

Finish 

5 Yes, go finish up and return 

ChkBS 

CMP 

108. 

; Is it Backspace? 


BNE 

ChkChar 

; No, go see if it is allowed 


Process 

a Backspace input character 


LDA 

Count 

; Get the input character count 


BNE 

Backup 

; If not zero, backup 1 char 

Beep 

WRITE 

WBeepA,#WBeepL,WrList,Error3 ; If zero, Beep the 




speaker 


JHP 

DoRead 

; Continue if Write went OK 

5 

Backup 

DEC 

Count 

; Char Count = Char Count - 1 


WRITE 

W8IkA,tWBlkL,WrList,Errar3 ; Blank out last 

5 



input character 


JHP 

WriteC 

; Continue if Write went OK 

5 

5 

Check if 

input character is one of those allowed 

ChfcChar LDY 

AllowLn 

Get length of ALLOW* data 


DEY 


Convert Length to an Offset 

ChkNext LDA 

8Al!ow,Y 

Get a character of ALLOW* data 


CHP 

RdBuffr 

Coapars it with the character that was 

5 



read 


8E8 

Found ; 

Branch if they #atch 


DEY 

• 

J 

Otherwise, »ove to next ALLOW* character 


BPL 

ChkNext j 

Continue if eore ALLOW* characters to 

I 



check 


JHP 

Beep ; 

All checked and no aatch - go Beep 

5 



speaker 

j 

Found 

LDX 

Count ; 

Get count of characters so far 


CPX 

Length ; 

Is it equal to LENGTH! already? 


BEQ 

Beep ; 

Yes, don’t accept character 


LDA 

RdBuffr ; 

No, get the input character 


STA 

Input, X ; 

and save it. Then 


INC 

Count ; 

Char Count = Char Count + 1 


WRITE 

RdBuffA,f01,NrList,Error3 ; Echo the input 

5 



character 


JHP 

WriteC 

; and go get acre input 


After carriage return keyed, load Input characters 
received into KEYS! using Business Basic subroutines. 


BBSUB StrCP ; Create temporary string descriptor 

Setup output pointer for InpCoa Business Basic subroutine. Then 
assign teaporary string to Business Basic string variable KEYS*. 


LDA 

KeysD 

; InpCos input is pointer to 

STA 

In.pQut 

; KEYS* string descriptor 

LDA 

KeysD* 1 

; (FacHO already points to 

STA 

InpOut+1 

; Input string descriptor! 

LDA 

KeysX 


STA 

InpOutXB 

; Don’t forget the X-Byte ! 

BBSUB 

InpCoa 

; KEYS* = Input 


; Use SOS Device Control call to restore the Console Status Table 

DCQNTRQL 01.,DCList,STableA,Error2 ; Restore Console 

• Status Table 

; Use SOS Device Control call to Download A Partial Character Set 

DCONTROL 17. , BCLi st , 01 dUL, Error 2 ; Download ncraal 

• Underline 

? 

; Finally, CLOSE the console. 

! 

SOS Close,ClosLst,Errorl ; Close the Console 

; Ncraal Exit. Put Return Address back on to 
; the stack and then Return to the caller. 

Return PUSH RtnAdr ; Put Return Address back on stack 

RTS ; Return to Business Basic prograa 

; Error Exits if any SOS call or Basic errors occur. 

; For SOS call errors, code is in A-Register. 

; For Basic errors, code is in X-Register and A-Register is 

; zero. 

• Error!: Error occurred while OPENing the console 

• Error2: Error occurred after console was open but before 

• Status Table was preserved 

• Error3: Error occurred after console was open and after 

; Status Table was preserved 


First, convert address of Input string to Extended fora and 
setup input pointer for StrCP Business Basic subroutine. 


Finish LDA 

*■ • 

; Load buffer with 

STA 

RdBuffr 

; a Blank and 

WRITE 

RdBuffA, 101, WrList, Error3 ; erase the Blinking UL 

BnkZExt 

5 

InputAjStrngl 

; Convert InputA to Extended 
fora 

STA 

StrngiXB 

; Set Extended Address X-Byte 

LDA 

InputA 

; Set low byte of 

STA 

Strngi 

; StrCP input 


Create teaporary string descriptor and set 
FacHO, FacHG+1, and FacHGXB as pointers to it. 

LDY Count ; Get length of Input data 


Errcr3 


t 


Errcr2 

SetCode 


PHA \ Save error code on 

the stack 

DCONTROL 01 ., DCList,STabIeA, SetCode ; Restore Console 

Status Table 

DCONTROL 17., DCLlst,QldUL, SetCode ; Download ncraal 

Underline 


PLA 


; Reload the error code 

PHA 


; Save error code on the stack 

SOS 

Close, Cl osLst 

; Close the Console 

PLA 


; Reload original error code 


Error! TAY 

BNE SOSErr 
BBSUB BError 
SOSErr BBSUB SError 
.END 


Non-zero code in A-Register? 

Yes, SOS call error occurred 
No, aust have been a Basic error 
Translate SOS code into Basic error 
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THE III HELP PAGE 


/// USER GROUPS 


ARIZONA 

Indp. Comp. Consultants Assoc. 

Attn: Mike Diross 

P.O. Box 32115 

Phoenix, AZ 85064 

(602) 892-3270 

CALIFORNIA 

A.T.U.N.C. 

Attn: Chuck Schreiber 

220 Redwood Highway, #184 
Mill Valley, CA 94546 
(415) 934-4175 

Fresno Apple /// User Group 
Attn: Chairperson 

4175 North Blackstone 
Fresno, CA 93726 
(Unknown ) 

International Apple Core 
Attn: Apple /// SIG 

908 George Street 
Santa Clara, CA 95054 
(408) 727-7652 

L. A. -South Bay Apple /// Users 
Attn: Gary Fortune 

P.O. Box 432 
Redondo Beach, CA 90277 
(213) 316-7738 

Orange County Apple /// Users 
Attn: Steven Blythe 

22501 El oise Avenue 
El Toro, CA 92630 
(714) 951-1231 

Sacramento Apple /// User Grp. 
c/o Chuck Davidson 
2906 Tioga Way 
Sacramento, CA 95821 
(916) 487-9830 

Stanislaus Apple Group 
Attn: Chairperson, /// SIG 

1124 Brady Avenue 
Modesto, CA 95350 
(Unknown ) 

Trinity Solutions 
Attn: Chairperson 

5340 Thornwood Drive 
San Jose, CA 95123 
(408) 578-3162 

CANADA 


Canadian Apple /// User Group 
Attn: Murray Lambert 

80 Antibes Drive, #2805 
Willowdale, Ontario 
CANADA M25R 3N5 
(416) 665-3622 

R. A.M. 

Attn: Robert Leger 

P.O. Box 21 
St. Jean, Quebec 
CANADA J3B 6Z1 

COLORADO 

Apple /// User Grp. Colorado 
Attn: Carol Chrzanowski 

P.O. Box 3155 
Englewood, CO 80112 
(303) 779-4003 

CONNECTICUT 

Apple /// Soc. of South Conn. 
Attn: John Lomartire 

34 Burr School Road 
Simsbury, CT 06880 
(203) 226-4198 

Hart-ford Users Group Exchange 
Attn: Richard Johnson 

29 Ridge Road 
Simsbury, CT 06070 
(203) 658-6692 

FLORIDA 

Sarasota Apple /// Users Group 
Attn: Chairperson 

909 South Tamiami Trail 
Nokomis, FL 33555 
(813) 484-4021 

GEORGIA 

Atlanta /// Society 
Attn: Steve Harrison 

385 Saddle Lake Drive 
Roswel 1 , GA 30076 
(404) 992-3130 


Computer Farmer 
Attn: Kelly Klaas 

Route 1, Box 4133 
Twin Falls, ID 83301 
(208) 733-4251 


INTERNATIONAL 

Apple /// Owners and Users Int. 
Attn: H. Joseph Dobrowolski 
PSC Box 913 

Langley AFB, VA 23665 
(804) 764-7109 

Apple User Group Europe e.V. 
c/o Box 11 0*1 69 D-4200 
Oberhausen 1 1 

WEST GERMANY 0049-6195-7 3917 

BAUD Apple Computer Club 

Attn: Thomas E. Linders 

P.O. Box 991 

APO NY, NY 09098 

(Unknown, Americans in Europe) 

British Apple Sys. User Group 
Attn: Chairperson, /// SIG 

c/o Box 174, Watford Herts 
ENGLAND WD2 6NF 
0727 73390/72728 

Copenhagen Computer Club 
Attn: Frank Buchan 

Ravnsborggade 19 
Copenhagen, 2000 N. 

DENMARK 

Le Club Apple 

Attn: Sophie Heuze 

43, Avenue De La Grande-Ar mee 

75116 PARIS 

FRANCE 

Personal Computers Users Soc. 
Attn: Osvaldo Briceno 
P.O. Box 56, Barcelona 
VENEZUELA 6001 -A 

KANSAS 

Kansas City Apple /// Users 
Group 

Attn: Steven Chernoff 

5533 Granada 
Roeland Park, KS 66205 
(913) 588-6060 

KENTUCKY/ INDIANA 

Kentucky/ Indi ana Personal Comp. 
Attn: Robert Hastings 

P.O. Box 3564 
Louisville, KY 40201 
(502) 589-0254 


MARYLAND 

Washington Apple Pi 
Attn: Charlene Ryan 

8227 Woodmont Avenue, #201 
Bethesda, MD 20814 
(301) 654-8060 

MASSACHUSETTS 

Applesauce 

Attn: Chairperson, /// SIG 
24 Dickinson Street 
Amherst, MA 01002 
(Unknown ) 

MICHIGAN 

Grand Rapids Apple Group 
Attn: Howard Bultman 
4444 Bonnie Street S.E. 

Grand Rapids, MI 49508 
(Unknown) 

MINNESOTA 

Minnesota Apple Corp. User Group 
Attn: Dave Rasmussen 
P.O. Box 796 
Hopkins, MN 55343 

NEBRASKA 

Big Red Apple Club 
Attn: John Wrenholt, Ed. 

1105 South 13th Street, #103 
Norfolk, NE 68701 
(402) 379-4680 

NEW JERSEY 

American Assoc. Micro. Investors 
Attn: /// SIG Chairperson 
P.O. Box 1384 
Princeton, NJ 06542 
(609) 921-6494 

North Jersey Apple /// Users 
Attn: Roger T. Richardson 
P.O. Box 251 
Allamuchy, NJ 07820 
(201) 852-7710 

NORTH CAROLINA 

North Carolina Apple /// Users 
Attn: Chairperson 
2609 North Duke Street, #103 
Durham, NC 27704 


Apple British Columbia Computer 

Attn: Chairperson, /// SIG 

P.O. Box 80569 

Burnaby, British Columbia 

CANADA V5H 3X9 

(Unknown) 


ILL INOIS 

Third Apple Users Group (TAU) 
Attn: Lavona Rann 

1113 Wheaton Oaks Drive 
Wheaton, IL 60187 
(312) 665-6319 


HELP LINE 

THE /// HELP LINE is a service sponsored by THE /// MAGAZINE 
for the benefit of all Apple /// owners. /// users with 
problems can call a number within their area to get 
assistance. The persons answering the phones are fellow 
///r’s who have volunteered to help others with their /// 
questions at no charge to you. Please remember the time zone 
differences, and be SURE to observe the listed calling hours- 
we don’t want to wake anyone out of a sound sleep! We are 
always looking for additional names for the list, and if you 
would like to help other ///r’s, please write us and state 
your areas of expertise and times available. 


MAINE 

Southern Maine Apple Users Group 
Attn: Bill Harkins 

Casco Street 
Freeport, ME 04033 
(207) 865-4761 


NORTH DAKOTA 

North Dakota Apple /// Users 
Attn: Chairperson 
Harwood, ND 58042 
(Unknown) 


Sub iect 

Code 

Sub iect 

Code 

Accounting 

AC 

Graphics 

GR 

Agriculture 

AG 

Micro-Sci 

MI 

Assembly Language 

AL 

Modems 

MD 

Business Basic 

BB 

Pascal 

PA 

Catalyst 

CT 

Profile 

PR 

Cobol 

CO 

Quar k 

QU 

CP/M 

CP 

SOS 

SO 

Data Base 

DB 

Spreadsheets 

SS 

Education 

ED 

Telecommunications 

TC 

Financial 

FI 

Word Processor 

WP 

Fortran 

FO 

Emulation 

AE 

General 

GE 

/// EZ Pieces 

EP 


NAME 


STATE TELEPHONE 


DAYS HOURS 


SUBJECTS 


BBS 


EASTERN STANDARD TIME 


Coville Woodburn 

NH 

(603) 

863-5590 

M,Tu,Th,F 

7-8 pm 


CT, GE 

Ken Johnson 

MA 

(413) 

253-2298 

Su-Sa 

6-9 pm 


BB , PA , MD , M I , WP 

Don Loosl i 

MI 

(313) 

626-3848 

M-F 

9 am-5 

pm 

WP, SS, DB, WP 

Richard F. Mai ley 

CT 

(203) 

232-9505 

M, Tu, W, F 

6-9 pm 


GE , SO , WP , CT , PR 

Harry T. Hanson 

NJ 

(201) 

467-0712 

M-F 

6-9 pm 


GE, PA, BB, CT 

Edward N. Gooding 

VA 

(804) 

747-8751 

Su-Sa 

6-9 pm 


CO , SS , MD , CT , PR 

A1 Johnson 

FL 

(904) 

739-1042 

M-F 

9 am-6 

pm 

GE 

Daryl Anderson 

NY 

(716) 

648-2462 

M-F 

9 am-5 

pm 

AL, BB, CT, SO 

CENTRAL STANDARD 

TIME 







J. Donald Glenn 

NE 

(402) 

291-9177 

Su-Th 

7-10 pm 

GE 

Jim Ferencak 

IL 

(312) 

599-7505 

M-F 

10 am-5 

i pm 

SO, WP 

Neil Quellhorst 

IL 

(217) 

434-8727 

Su— Sa 

7-9 pm 


AL, BB, TC, GR, PA 


MOUNTAIN STANDARD 

TIME 



Terri Wiles 

CO 

(303) 850-7472 Su-Sa 

10 am-6 pm PA 


PACIFIC STANDARD 

TIME 






Pat Hoi wagner 

CA 

(415) 

433-2323 

M-F 

10 am-6 pm 

GE , SS , SU , AE , EP 

Vincent F. Latona 

CA 

(818) 

703-0330 

M-F 

9 am-5 pm 

GE , WP , BB , SS , AE 

Frank W. Moore 

CA 

(916) 

485-6525 

M-F 

6-9 pm 

BB, GE, WP 

Dennis R. Cohen 

CA 

(818) 

956-8559 

Su-Th 

10 am-10 pm 

GE 

Tim Harrington 

CA 

(415) 

257-1220 

M-F 

6-9 pm 

AL, BB, GE 


EAST COAST 

Three’s Company 
(804) 747-8752 

Access Times: After 6 pm EST 
Protocols: 7 bits 
Duplex: Full 
Parity: Odd 

Transmission Speeds: 300-1200 
Cost: Free 

(Largest /// private BBS in the 
world) 

The Lost Caverns of 

Tsojcanth (Third Dimension) 
Phone: (201) 891-5699 
Access Time: After 6 pm EST 
Protocols: 7 or 8 bits 
Duplex: Full 
Parity: Odd or Even 
Transmission Speeds: 300-1200 
Cost: Free 

(Technical /Game Board) 

Washington Apple Pi 
(301) 986-8085 

Access Times: After 6 pm EST 
Protocols: 7 or 8 bits 
Duplex: Full 
Parity: Odd or Even 
Transmission Speeds: 300 


Cost: Free 


OHIO 

Apple Dayton 

Attn: Chairperson, /// SIG 
P.O. Box 1666 
Fairborn, OH 45324-7666 
(513) 879-5895 

Cincinnati Apple /// Users 
Attn: Chairperson 
7960 Shell dale Way 
Cincinnati, OH 45252 
(513) 542-7146 


OREGAN 

Portland Apple /// Users 
Attn: Milton Johnson 
15291 S.E. Thornton Drive 
Milwaukie, OR 97222 
(503) 225-1623 


TEXAS 

Apple Corps of Dallas 
Attn: Chairperson, /// SIG 
P.O. Box 5537 
Richardson, TX 75080 
(Unknown ) 

Houston Area Apple Users 
Attn: Roger Schermerhorn 
P.O. Box 610150 
Houston, TX 77063 
(713) 480-5690 

River City Apple Corps 
Attn: Chairperson, /// SIG 
P.O. Box 13349 
Austin, TX 78711 
(512) 454-9962 

VIRGINIA 

Charlottesville Apple /// Users 
Attn: Prof. Richard Martin 
213 Turkey Ridge Road 
Charlottesville, VA 22901 
(804) 924-4981 

Greater Tidewater /// Users 
Attn: Daniel Whiting 
Route 2, Box 216 
Hayes, VA 23072 
(804) 642-5655 


WASHINGTON 

Apple Puget Sound Pro. Lib. 
Attn: Dick Hubert 
290 S.W. 43rd Street 
Renton, WA 98055 
(206) 251-5222 


Central Washington RBBS (C/PM) 
Attn: Patrick E. O’Farrell 
P.O. Box 538 
Sehal , WA 98942 
(509) 697-7296 

Computer Users Federation 
Attn: Chairperson, /// SIG 
P.O. Box 23483 
Milwaukee, WI 53223 
(Unknown) 


INTERNATIONAL 

CompuServe (MAUG: GO APPLE3) 
Phone: Various (See manual) 
Access Times: 24 hour 
Protocols: 7 or 8 bits 
Duplex: Half or Full 
Parity: Odd or Even 
Transmission Speeds: 300-2400 
Cost: *6.00+/Hour depends on 
time/area 

(World's largest Apple BBS) 
WEST COAST 

Doug Thom’s BBS (CP/M) 

Phone: (408) 253-1309 

Access Times: Varies 
Protocols: 7 bits 
Duplex: Full 
Parity: None 

Transmission Speeds: 300-1200 
Cost: Free 

A.T.U.N.C. 

Phone: (415) 673-9571 

Access Times: After 6 pm PST 
Protocols: 7 or 8 bits 
Duplex: Full 

Parity: None, odd or even 
Transmission Speeds: 300 
Cost: Free 



25 PIN 

(EIA RS232) SWITCHES 



• All 25 pins switched. Can be switched with IBM PC 
parallel port. 

• DB25F (female) connectors with gold plated contacts. 


25 PIN 

(CROSS MATRIX) SWITCH 



Model: ABX-25 

• Enables the alternate use of 2 computers and 2 peripherals. 

• All 25 pins switched. 

• DB25F (female) connectors with gold plated contacts. 
(Note: Cross matrix switch also available in 36 pin model). 


36 PIN (CENTRONICS TYPE) 
PARALLEL SWITCHES 



Models: AB-36, ABC-36 

• All 36 pins switched. 

• Female centronics connectors with gold plated 
contacts. 


25 PIN (L.E.D) SWITCH 



Model: ABL-25LE 

• Features L.E.D. functional indicators. 

• All 25 pins switched. 

• DB25F (female) connectors with gold plated contacts. 


typical Applications for 
DATA SPEC® Data Switches: 


COMPUTER 



ABC 

DATA SWITCH 



MODEM PRINTER CRT 


COMPUTER COMPUTER 


ABX SWITCH 



PRINTER PRINTER 




COMPUTER COMPUTER 



PRINTER PRINTER PRINTER MODEM PRINTER 


□OUCfi] (3GGCT 


MODEL 

DESCRIPTION 

ORDER « 

PRICE 

S/H COSTS 

AB-25 

A/B Switch 

8888 

59.95 

4 98 

ABC-25 

A/B/C Switch 

8081 

104.95 

5 99 

ABX-25 

Cross-Matrix 

8882 

89.95 

5.00 

ABX-36 

Cross-Matrix 

8883 

145.95 

6.88 

AB-36 

A/B Switch 

8884 

99.95 

5.88 

ABC-36 

A/B/C Snitch 

8885 

149.95 

6.00 

A8L-25LE 

LED Snitch 

8886 

129.95 

6.00 



PAIR SOFTWARE 

3201 MURCHISON WAY 
CARMICHAEL, CA 95608 
(916) 485-6525 


'Prices do not include tax or shipping.” 


©Copyright 1985 Alliance Research Corporation 
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ITEM ORDER # COST S/H 


ASSEMBLY LANGUAGE 


Jeppson Dissassembler (with manual) 

5000 

15.00 

1.00 

BASIC PROGRAMS 




Appleseed (basic program modules to build your own) 

5100 

10.00 

1.00 

Basic Input Module (full text input control) 

5101 

10.00 

1.00 

Basic Tools (various utilities written in basic) 

5102 

10.00 

1.00 

Basic Text Processors (word processer program frame) 

5103 

15.00 

1.00 

Chartmaker (for Apple plotters) 

5104 

10.00 

1.00 

CP/M 




CP/M Public Domain Pk. #1 (various programs) 

5200 

10.00 

1.00 

FORTH and XLISP Languages 

5201 

10.00 

1.00 

Small-C Language 

5202 

10.00 

1.00 

COMMUNICATIONS 




Access III Interpreter (upgrade w/command language) 

5300 

15.00 

1.00 

Access III 1.1 Program (upgrade, with 1.1 notes) 

5301 

15.00 

1.00 

Access III 1.1 Program (with manual and 1.1 notes) 

5302 

35.00 

2.00 

Codefile Transmitter (for transmission of any file) 

5303 

10.00 

1.00 

DATA SPEC RS232 AND CENTRONICS SWITCH BOXES 


*AB-25 RS232 Two Way Switch Box 

8000 

59.95 

4.00 

*ABC-25 RS232 Three Way Switch Box 

8001 

104.95 

5.00 

‘ABX-25 Cross-Matrix Switch Box 

8002 

89.95 

5.00 

‘ABX-36 Cross-Matrix Switch Box 

8003 

145.95 

6.00 

*AB-36 Centronics Two Way Switch Box 

8004 

99.95 

5.00 

‘ABC-36 Centronics Three Way Switch Box 

8005 

149.95 

6.00 

‘ABL-25LE RS232 Two Switch Box (w/LED readouts) 

8006 

129.95 

6.00 

DISK UTILITIES 




Backup III (for all hard disk users) 

5400 

10.00 

1.00 

Blocread (block read/save utility) 

5401 

15.00 

1.00 

Confidence Program (checks III system) 

5402 

10.00 

1.00 

Disk Maker Utility (volume copier for diskettes) 

5403 

15.00 

1.00 

Dealer Diagnostics (96K/128K III only) 

5404 

10.00 

1.00 

Dealer Diagnostics (256K III & ///+ only) 

5405 

10.00 

1.00 

Fixer ('repairs’ Catalyzed disks for individual use) 

5406 

10.00 

1.00 

DIF Print (print DIF files in format) 

5407 

15.00 

1.00 

Disk Check (Repair Damaged volume directories) 

5408 

15.00 

1.00 

File Backup Utility (individual file copier) 

5409 

15.00 

1.00 

Grabit (Converts ASCII text files to Quick File) 

5410 

10.00 

1.00 

List It (list PASCAL text files formatted) 

5411 

15.00 

1.00 

Mail List Manager Utilities (for MLM) 

5412 

15.00 

1.00 

Pascal File Converter (PASCAL text to ASCII text) 

5413 

10.00 

1.00 

Reformatter/// (Interchange DIF/ASCII/Qk. File files) 

5414 

20.00 

2.00 

System Utilities 1.1 (w/device sub-type changer) 

5415 

10.00 

1.00 

System Utilities 1.2 (latest version) 

5416 

10.00 

1.00 

Textgraphics (ASCII text to FOTO file converter) 

5417 

15.00 

1.00 

FINANCE 




VisiCalc Templates Disk #1 (various templates) 

5500 

15.00 

1.00 

LISTS 




Apple III Cust. List (on 1 40K Disk III diskettes) 

5600 

150.00 

5.00 

Apple III Cust. List (on 572K Micro- Sci diskettes) 

5601 

150.00 

2.00 

III Magazine Customer List (latest list) 

5602 

50.00 

1.00 

MANUALS AND OTHER PUBLICATIONS 



Service Manual W/256K Diagnostics Disk 

5700 

70.00 

5.00 

III MAGAZINE 1985 (issues Magazine/Newsletter 1985) 

5701 

50.00 

1.00 

"How to use your Apple III in Ten Easy Video 




Lessons (VHS or BETA)" 

5702 

69.95 

2.00 

NEW USER PACKAGE - Includes OWNERS and 




STANDARD DEVICE DRIVERS Manuals, SYSTEM 




UTILITIES 1.2 and CONFIDENCE 

5703 

40.00 

3.00 

OPERATING SYSTEM AND LANGUAGES 



Bus. Basic 1.23 (upgrade, no 64K program limit) 

5800 

10.00 

1.00 

CONSOLE and BOOT Source Text (disassembed info) 

5801 

10.00 

1.00 

FORTRAN-77 (Pascal upgrade, 1977 standard) 

5802 

35.00 

3.00 

PASCAL 1,2 (upgrade) 

5803 

20.00 

2.00 

PASCAL 1.2 Dir. Patch (put PASCAL 1.2 on sub-direct.) 

5804 

10.00 

1.00 

PAS. 2.0 Compiler (upgrade w/manual, for PASCAL 1.2) 

5805 

20.00 

2.00 


ITEM ORDER# COST S/H 


PASCAL PROGRAMS 


‘Font Maker III (Generate new FONT files) 

5900 

15.00 

1.00 

FreeForm (form based data base w/source code) 

5901 

20.00 

1.00 

GrafDraw (graphic drawing program) 

5902 

15.00 

1.00 

‘Label Maker III (creates mail list labels) 

5903 

15.00 

1.00 

p-Code Disassembler (Op-Code creator only) 
Pascal Menu Program (one menu runs 

5904 

15.00 

1.00 

many PASCAL prgs.) 

5905 

15.00 

1.00 

Pascal Modules #1 (various programmer modules) 

5906 

10.00 

1.00 

Pascal Modules #2 (various programmer modules) 

5907 

15.00 

1.00 

Pascal Modules #3 (various programmer modules}.. 

5908 

15.00 

1.00 

‘Pascal Modules #4 (various programmer modules) 

5909 

15.00 

1.00 

Pascal X Reference (find variables in source text) 

5910 

15.00 

1.00 

Pascal Utilities #1 (volume directory sorter) 

5911 

15.00 

1.00 

Pascal Utilities #2 (includes Font Capture) 

5912 

15.00 

1.00 

Sign Maker (makes banner signs) 

5913 

15.00 

1.00 

PERIPHERALS 




‘STAR SG-10 NLQ Dot Matrix printer 

8101 

299.00 

8.00 

‘STAR SG-15 NLQ Dot Matrix printer 

8102 

465.00 

9.00 

‘Apple III Printer Connector (all modules) 

8100 

20.00 

2.00 

‘TEKNIKA MJ22 RGB/COMPOSITE Monitor 

8201 

349.00 

12.00 

‘Apple III Monitor Cable (all models) 

8200 

35.00 

2.00 

PUBLIC DOMAIN PACKAGES (Various Programs) 



Public Domain Pk. #1 (with Elisa Al program) 

6000 

10.00 

1.00 

Public Domain Pk. #2 (with Star Trek program) 

6001 

10.00 

1.00 

Public Domain Pk.#3 (w/Hec-Dec Converter) 

6002 

10.00 

1.00 

Public Domain Pk. #4 (with Mortage rate program) 

6003 

10.00 

1.00 

Public Domain Pk. #5 (with file type Changer program) 

6004 

10.00 

1.00 

Public Domain Pk. #6 (with Mac-Unit program module) 

6005 

15.00 

1.00 

Public Domain Pk. #7 (w/Basic Modem program) 

6006 

15.00 

1.00 

SYSTEM DRIVERS 




RAT He .Mouse driver (any III language or system) 

6100 

15.00 

1.00 

SOS Drivers Upgrade (latest known) 

6101 

15.00 

1.00 

WORD PROCESSING 




Applewriter WPL Pk. #1 (WPL shorts) 

6200 

10.00 

1.00 

Ink Well Upgrade (upgrade, added features) 

6201 

15.00 

1.00 

Super Applewriter (upgrade v4.1) 

6202 

15.00 

1.00 


PAIR SOFTWARE COPYRIGHTED ITEMS 
(Not Public Domain) 


‘CHECKBOOK III (checkbook ledger program) 

6300 

49.95 

2.00 

Data Base III (super data base manager) 

6301 

100.00 

4.00 

Electronic Mailman (E-Mail formatter) 

6302 

100.00 

4.00 

‘Modula-2 (Coming Soon!) 

6303 

----- 


Post Master (super mail list manager) 

6304 

200.00 

3.00 


* = New Items 


ALL ITEMS MARKED UPGRADE MUST HAVE YOUR ORIGINAL DISKETTE 
SUBMITTED WITH YOUR ORDER. ALL SALES FINAL SOME PROGRAMS MAY 
NEED WORK TO BE USED IN YOUR APPLICATION. CP/M ITEMS REQUIRE CP/M 
CARD. BUSINESS BASIC PROGRAMS REQUIRE VERSION 1.23. PASCAL 
PROGRAMS REQUIRE VERSION 1.2. CALIFORNIA RESIDENTS MUST INCLUDE 6% 
SALES TAX. PLEASE BE SURE TO INCLUDE SHIPPING/HANDLING COSTS. 
OVERSEAS BUYERS PAY 3 TIMES LISTED AMOUNT. CHECK OR MONEY ORDER 
ONLY! A $10.00 PER PACKAGE SURCHARGE REQUIRED IF YOU ARE NOT A 
SUBSCRIBER TO THE III MAGAZINE. ALLOW FOUR WEEKS FOR DELIVERY. 

SEND YOUR ORDER TO PAIR SOFTWARE, 3201 MURCHISON WAY, 
CARMICHAEL, CA 95608 (916) 485-6525. 
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Of all the great features 
found on this Apple III the 
most 


attractive is Its price 


FREE 

REPLACEMENT 
GUARANTEE ! 


The Apple ///. A computer that was built to take the 
kind of treatment dished out in the business 
environment Easy to use day in and day out. Just ask 
someone who already owns one or two. 


Quantity Discounts Available 


Our systems come complete with monitor and these 
computer features: 


ORDERLINE 

1 - 800 - 82 1-3221 

For Orders Only 
CUSTOMER SERVICE 

801 - 752-7631 

Questions — Service 


• 128K or 256K options 

• Easy-to-use keyboard (typewriter style) 

• Numeric keypad (calculator style) 

• Built-in disk drive 

• 4 expansion slots 

• Full 30-day Sun Warranty 


VI in SYSTEMS 

JUI I REMARKETING 

P.0. BOX 4059 Logan, UT 84321 


'includes computer and monitor. Unless otherwise noted equipment is reconditioned with a 30- 
day unconditional warranty. Manuals are not supplied with reconditioned equipment but are 
available seperately at extra cost. A complete copy of Sun Data s Warranty is available on 
request. 



